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Introduction 


This  thesis  concerns  the  signal  processing  of  the  waveforms  that  are  received  from 
the  backscattering  of  an  object  under  test.  The  amplitude  and  phase  of  the  return  signals 
are  used  to  construct  a  representation  of  the  object.  Therefore,  the  radar  cross  section 
signature  of  the  object  is  identified.  A  comparison  of  an  ideal  impulse  waveform  and  a 
pulsed  continuous  waveform  (CW)  is  analyzed.  In  addition,  a  Gaussian  waveform  is 
used  as  a  baseline.  Three  objects  are  identified  using  the  impulse  waveform  and  a  pulsed 
CW  waveform,  and  a  comparison  between  the  two  waveforms  for  the  three  objects  is 
made.  The  first  object  was  a  simple  perfect  conducting  sphere  shaped  object.  The  second 
object  was  a  perfect  conducting  Square  plate  and  the  third  object  was  an  elliptical  shape 
with  a  cylinder  rod  through  the  center.  The  angle  of  incidence  of  the  waveforms  and 
polarization  of  the  waveforms  is  also  evaluated. 

Impulse  radars  are  of  interest  because  of  their  range  resolution.  As  such,  they 
have  been  widely  used  in  radar  imaging  and  remote  sensing  for  target  signature  analysis 
and  identification/classification  [1, 2,  3].  Two  characteristics  of  impulse  signals  provide 
advantages  over  the  conventional  narrow  band  waveforms.  The  first  characteristic  of  an 
impulse  waveform  is  that  its  low  frequencies  can  penetrate  ground  and  foliage  and  can 
also  excite  target  resonances.  This  allows  for  detection  of  low  radar  concealed  targets  in 
foliage,  or  detection  of  low  radar  cross  section  targets  [4].  The  second  important 
characteristic  is  the  very  narrow  pulse  width,  of  the  order  of  nanoseconds  or  less,  with 
which  fine  resolution  and  low  clutter  is  possible.  With  reduced  clutter  one  can 
significantly  improve  the  target  detectability  in  strong  range  distributed  clutter. 
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Clutter  is  the  backscattering  from  the  ground.  Especially  for  conventional  narrow 
band  radars,  the  ground  also  becomes  a  target  that  can  be  confused  between  a  real  target 
and  a  background  surface  return.  The  ground  roughness  diminishes  the  specularity,  and 
with  it  the  forward  scattering.  Also,  the  reflected  power  is  diverted  to  directions  other 
than  the  specular  direction  including  the  backward  direction.  To  measure  low  radar  cross 
sections,  all  background  signals  must  be  reduced  to  levels  that  do  not  induce  unacceptable 
errors. 

Background  signal  level  reduction  is  one  of  the  basic  principles  of  electro¬ 
magnetic  scattering  measurements.  Also,  the  measurements  of  scattered  fields  must  be 
made  in  the  far  field  of  the  scattered  target  where  the  incident  field  at  the  target  must  be  a 
good  approximation  to  a  plane  wave.  Another  important  principle  is  that  the  power 
relations  in  electromagnetic  scattering  are  governed  by  the  radar  range  equation.  This 
equation  defines  the  smallest  radar  cross  section  that  can  be  measured  with  a  specific 
error. 


2 


2.  Radar  Range  Equation 

The  radar  cross  section  o  is  embodied  by  the  radar  range  equation.  The  radar 
range  equation  is  the  basic  relationship  which  permits  the  calculation  of  backscatter 
signal  strength  from  measurable  or  known  parameters  of  the  radar  transmitter,  antenna, 
propagation  path,  and  target.  The  basic  radar  equation  can  be  derived  in  the  following 
manner.  If  the  energy  from  a  radar  transmitter  is  radiated  isotropically  and  the 
hypothetical  isotropic  antenna  of  the  radar  is  ideal,  meaning  that  the  gain  is  unity,  the 
uniform  distribution  of  radiant  energy  over  the  surface  of  a  sphere  at  range  RT  will 
produce  a  power  density  driven  by 

power  /  unit  area  =  PT  /  47tR*  (1) 

where  P  T  is  the  power  transmitted  (usually  taken  as  the  average  radio  frequency  power 
during  the  pulse)  and  Ry  is  the  range  of  transmission  [5].  Now  one  assumes  that  the 
transmitting  antenna  has  a  directive  gain  GT.  This  directive  gain  referred  to  an  ideal 
isotropic  radiator  is  the  ratio  of  4tc  times  the  ratio  of  the  power  radiated  per  unit  solid 
angle  in  the  defined  direction  to  the  total  power  delivered  to  the  antenna.  A  target  at 
range  RT  would  be  illuminated  by  a  wave  of  radiant  energy  whose  power  density  is 

power  /  unit  area  =  PTGT  /  47tR^..  (2) 

If  we  once  again  assume  that  the  power  is  reflected  isotropically,  the  power  density  of  the 
wave  reflected  from  the  target  at  a  distance  Rr  from  the  target  at  the  receiving  aperture  is 

reflected  power  _  [  PTGT 
unit  area  v47tR* 
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where  Rr  is  the  receiving  range,  and  a  is  the  radar  cross  section  of  the  target  in  units 
consistent  with  range  [5].  The  radar  cross  section  does  not  only  depend  on  the  frequency 
but  also  the  target  aspect  with  respect  to  both  the  transmitter  and  the  receiver.  If  the 
transmitter  and  the  receiver  are  not  collocated  then  a  is  the  bistatic  radar  cross  section. 
Next  the  amount  of  radiant  energy  intercepted  by  the  receiving  antenna  is  the  product  of 
the  energy  power  density  and  the  effective  aperture  area  of  the  receiving  antenna.  The 
effective  aperture  is  defined  as 

Ae  =  GrA,2  /  4tc  (4) 

where  X  is  the  wavelength  of  the  transmitted  frequency,  X2/4it  is  the  universal  antenna 
constant,  and  GR  is  the  gain  of  the  receiving  antenna  [5].  The  power  received  can  now  be 


expressed  as 

received  signal  power  =  S  =  •  (5) 

(4ti)RrRt 

If  the  effective  receiving  aperture  is  substituted  into  the  above  equation,  the  reflected 
power  at  the  receiver  becomes 


PtGtGrA,2g 

=  (4*W 


(6) 


Other  assumptions  can  be  made  to  modify  the  radar  range  equation.  For  example,  the 
transmitter  and  receiver  could  be  collocated  and  use  the  same  antenna.  Then  the  radar 


equation  can  be  expressed  as 


c  PTG2A,2a 
(4ti  )3R4' 


(7) 
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The  ability  of  a  radar  to  detect  the  presence  of  a  echo  signal  is  fundamentally 
limited  by  noise.  Likewise,  noise  is  the  factor  that  limits  the  accuracy  with  which  the 
radar  signals  may  be  estimated.  The  parameters  usually  of  interest  in  radar  applications 
are  the  range,  or  time  delay,  the  range  rate,  or  Doppler  velocity,  and  the  angle  of  arrival. 
The  precise  value  of  the  amplitude  of  the  echo  signal  is  usually  not  important,  except  in 
so  far  as  it  influences  the  signal-to-noise  ratio  (SNR).  To  simplify  the  analysis,  it  is 
assumed  that  the  signal  is  large  compared  with  the  noise.  This  is  a  reasonable  assumption 
since  the  SNR  must  be  relatively  large,  if  the  detection  decision  is  to  be  reliable. 

The  radar  range  equation  can  be  rewritten  in  a  different  form  for  detection  range 
estimates.  A  required  minimum  SNR  can  be  defined  based  on  required  detection 
probability,  target  statistics,  and  radar  characteristics  for  the  simple  case  of  detection  of  a 
target  in  receiver  noise.  If  it  is  assumed  that  the  receiver  noise  is  constant,  the  minimum 
SNR  defines  the  maximum  detection  range  by  defining  a  minimum  level  of  received 
signal,  Smin,  which  can  be  tolerated.  Therefore,  the  maximum  detection  range  is  given  by 

R„„  =  [p.GVo  /(4*)JS.,.]“.  (8) 

This  equation  shows  that  the  maximum  detection  range  in  free  space  varies  only  as  the 
fourth-root  of  the  radar  cross  section.  For  example,  to  reduce  the  maximum  detection 
range  by  3  dB,  a  12  dB  reduction  in  radar  cross  section  is  required.  The  maximum 
detection  range  becomes  complicated  when  trying  to  detect  in  a  clutter  environment, 
because  clutter  will  typically  exhibit  a  received  power  versus  range  dependency  varying 
from  R’3  to  R'7  [6]. 
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The  radar  detection  problem  is  normally  approached  through  the  concepts  of 
statistical  decision  theory,  because  it  involves  the  detection  of  a  random  time-varying 
signal  in  a  randomly  varying  background  [6, 7].  Two  hypotheses  are  usually  used  in  the 
radar  detection  decision.  The  first  hypothesis  is  that  no  target  is  present  (noise  only). 
The  second  hypothesis  is  that  a  target  is  present  (target  return  plus  noise). 

The  error  constraint  normally  used  in  radar  is  to  limit  the  numbers  of  times  the 


second  hypothesis  is  chosen  when  in  fact  no  target  is  present.  This  is  known  as  a  false 
alarm.  To  prevent  false  alarms  involves  correctly  placing  a  threshold  that  noise  alone 
will  cross,  on  the  average,  at  an  acceptable  rate.  In  order  to  know  where  to  place  the 
threshold,  the  statistics  of  the  receiver  noise  needs  to  be  known. 

The  detected  received  signal  can  be  limited  from  thermal  noise  power  generated 
by  the  random  thermal  motion  of  conduction  electrons  in  the  input  stages.  Usually  an 
optimal  receiver  for  the  detection  of  a  pulse  train  is  comprised  of  a  narrow-band  filter 
“matched”  to  the  single-pulse  width,  followed  by  a  synchronous  detector  and  an 
integrator.  The  available  thermal  noise  power  after  the  filter  is  a  function  of  the 
temperature  T  and  the  bandwidth  Bn  of  the  receiver,  and  is  given  by 


N  =  FKTBn  (9) 

where  F  is  the  receiver  noise  figure  and  K  is  Boltzmann’s  constant  (=  1 .3  x  10  J/°K) 

[8].  Now  the  radar  range  equation  can  be  written  in  terms  of  SNR  as 


SNRp 


PtG2A.2g 

(47t)3R4FKTBn ' 


(10) 
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where  SNRP  is  the  SNR  when  only  one  pulse  is  returned  from  the  target.  The  target  is 
usually  illuminated  for  a  relatively  long  period  of  time  t,,  and  the  number  of  pulses  that 
can  be  used  is  M,  where 

M  =  t,fR  (11) 

and  fR  is  the  pulse  repetition  frequency  [8]. 

For  this  analysis,  a  few  assumptions  will  be  made  in  using  the  standard  radar 
range  equation  for  an  impulse  radar.  Although  the  radar  range  equation  assumes  a 
narrowband,  it  will  still  be  used  for  the  impulse  waveform.  Wideband  and  impulse  radar 
range  equations  have  been  derived  [9, 10].  However,  these  will  not  be  used  because  the 
impulse  waveform  employed  does  not  have  a  very  large  bandwidth.  Another  assumption 
is  that  the  gain  of  the  transmit  antenna  and  the  receive  antenna  will  be  assumed  to  have 
constant  gain  over  the  bandwidth  of  interest. 
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3.  Backscattering  From  an  Object 

In  analyzing  an  electromagnetic  diffraction  problem,  the  fields  can  be  separated 
into  near  and  far  fields.  The  near  field  does  not  only  consist  of  Fresnel  diffraction  but  is 
also  responsible  for  charges  and  currents  induced  on  the  surfaces  of  the  scattering  bodies. 
The  far  field  is  responsible  for  the  cross  section  of  scattering  bodies  and  therefore  will  be 
analyzed  in  detail.  The  far  field  is  defined  as  the  region  of  the  field  of  an  antenna  where 
the  angular  field  distribution  is  essentially  independent  of  the  distance  from  the  antenna. 
The  far  field  region  exists  at  distances  greater  than  2D2/^  from  the  antenna  where  A,  is  the 
wavelength  and  D  is  the  antenna  length.  The  outer  boundary  is  infinity.  Therefore  the  far 
field  can  correspond  to  the  Fraunhofer  field  of  physical  optics. 

The  far  field  consist  of  an  electric  (E)  and  magnetic  (H)  fields  that  can  be 
expressed  as  sums  Ej  +  Es  and  Hj  +  Hs ,  respectively,  which  are  the  incident  (i)  and 
scattered  (s)  electric  and  magnetic  vectors.  Es  and  Hs  are  defined  by 

E,  =  lim(E-E,)  02) 

R — ►oo 

and 

H,  =  lim(H-H,)  (13) 

R — >co 

With  time  dependence  exp  (jcot)  suppressed,  the  Es  and  Hs  vectors  can  be  expressed  as 

m 

E,(R)~  u(k,R0)-^-  (14) 

and 

H,(R)-V(k,R0)^-  (15) 
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where  the  U  and  V  vectors  are  called  scattering  amplitudes,  k  is  the  propagation  vector, 
and  Rq  is  the  direction  to  the  point  of  observation  in  the  far  field  [11].  To  get  exact 
relations  for  the  far  field  amplitudes,  the  far  field  can  be  represented  in  terms  of  near  field 
parameters.  First,  the  total  electric  and  magnetic  field  vectors  can  be  expressed  in  terms 
of  the  incident  field,  E;  and  Hi;  and  integrals  over  the  scattering  body  surface  where  the 
material  of  the  body  can  be  dielectric  and  of  finite  conductivity  as 

E(R)  =  E(.  +  —  f[/co[t(nx  H)G  +  (nxE)x  VG+(nE)VGj£>  (16) 

4ft  4. 

and 


H(R)  =  H  +  —  J [(n  x  H)  x  VG + (n  •  H)VG  -  joe  (n  x  E)G]dS'  (17) 

*  4ft 

By  approximating  the  function  G  in  the  limit  of  large  R,  an  integral  representation 
for  U  and  V  can  be  derived.  This  involves  making  the  approximation 


R-R  |=^R-R  =(r  R-2R  R  +R  R  J2 


.  1/2 


_L  2R  R  R2]  D  R  R 

=  R  1 - 5 —  +  — r  ~  R-- 

l  R2  R2J 


(18) 


R 


and  dropping  all  terms  in  the  function  G  of  order  higher  than  1/R  [1 1].  R  is  the  radius 
vector  to  a  point  of  observation  and  R'  is  the  radius  vector  to  a  point  on  the  scattering 
body.  The  result  is 


u(k,R0) 


-£« 


.8  . 


r 

(n  x  H)  -  (n  x  E)  x  R0  -  (n  •  E)Rfl 


-jkRv-R 


dS' 


(19) 


and 
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v(k,R0) 

\f  y2 

=  ^j  -  (n  x  E)+ (n  x  H)  x  R0  +  (n  ’ H)R0 
471  slKvJ 

Even  though  the  far  field  itself  is  an  approximation,  the  relations  for  U  and  V  may  be 
regarded  as  exact  relations  for  the  far  field  amplitudes  [11]. 

In  the  above  equations,  the  individual  terms  are  as  follows:  n  x  H  is  the  electric 
surface  current,  n  x  E  is  the  magnetic  surface  current,  n  •  E  the  electric  surface  charge, 
and  n  •  H  the  magnetic  surface  charge.  If  the  scattering  body  is  a  perfect  conductor,  the 
magnetic  surface  currents  and  magnetic  surface  charges  will  vanish.  Therefore,  the 
relations  for  U  and  V  reduce  to 

u(k,R0)=£-J  (jp)  (nxH)-(n-E)R„  eJU-"'dS '  (21) 

and 

v(k,R,)=  J[(n  x  H)x  R, (22) 

47C  s 

in  which  only  the  electric  surface  current  and  charge  appear  [1 1]. 

The  scattered  electric  and  magnetic  vectors  are  used  in  determining  the  radar  cross 
section.  The  scattering  from  a  body  in  the  optical  limit  is  described  by  tracing  the  rays  of 
the  incident  field  on  and  reflected  field  from  the  body  according  to  Snell’s  Law  of 
reflection  [11].  The  incident  and  reflected  rays  and  the  normal  to  the  scattering  body 
surface  lie  in  the  plane  of  incidence.  Also  the  angle  of  incidence  relative  to  the  surface 
normal  is  equal  to  the  angle  of  reflection.  By  applying  the  boundary  conditions,  the 
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initial  values  for  the  field  components  on  the  reflected  ray  system  are  determined.  An 
additional  requirement  on  the  initial  field  is  implied  by  the  fact  that  the  electric  and 
magnetic  field  vectors  must  be  orthogonal  to  the  ray  along  which  the  field  propagates. 

By  using  a  ray  system  and  boundary  conditions  one  can  solve  a  scattering  problem  for 
both  a  dielectric  body  and  a  perfect  conductor.  For  a  dielectric  body  one  can  obtain 
reflection  and  transmission  coefficients  relative  to  the  interface  by  using  the  standard 
Fresnel  formulas.  The  refracted  and  reflected  fields  must  be  matched  at  the  body  by 
treating  the  matching  problem  as  if  the  waves  were  plane  waves  and  the  dielectric 
interface  were  an  infinite  plane.  However,  to  obtain  a  practical  answer  in  a  scattering 
calculation,  one  should  neglect  all  but  finite  number  of  reflections  and  refractions  [11]. 

Using  a  perfect  conductor  for  a  scattering  body,  the  total  tangential  electric  vector 
vanishes  on  the  body’s  surface.  The  boundary  conditions  that  exist  are 

nxEs=-nx  E.  (23) 

and 

n*H4  =  n-H;.  (24) 

There  is  also  a  boundary  condition  on  the  incident  phase  vy,  and  the  scattered  phase  \j/s 
according  to  the  law  of  reflection  in  the  optical  limit  which  is 

n  x  Vvj;  ,  =  nx  Vvy  t.  (25) 

Equation  (25)  states  that  an  incident  ray  makes  the  same  angle  with  the  normal  to  the 
surface  as  the  corresponding  reflected  ray  and  that  the  two  rays  and  the  surface  normal  lie 
in  the  same  plane  of  incidence.  Therefore  the  following  condition  exists. 

n  •  Vv}/  j  =  -n  •  Vy  5.  (26) 
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The  tangential  component  of  Es  can  be  derived  by  taking  the  cross  product  of  n  with 
Equation  (23)  which  is 

Es  -(n-Es)n  =  nx(nxE,).  (27) 

The  normal  components  of  Es  and  Ej  can  be  shown  to  be  identical  by  taking  the  dot 
product  of  Vys  and  Vvj/j  successively  with  Equation  (27)  and  applying  Equation  (26); 
that  is, 

n*Ei  =  n-Es.  (28) 

A  compact  form  of  the  boundary  condition  for  Es  on  the  surface  in  terms  of  Ej  can  be 
obtained  by  using  Equation  (28)  in  connection  with  Equation  (27): 

Es  =  E,  -  2n  x  (E,  x  n) .  (29) 

A  boundary  condition  for  the  magnetic  vector  at  the  scattering  surface  can  similarly  be 
derived: 

Hs  =  H,  -2(n  H,)n.  (30) 

The  scattered  electromagnetic  field  in  the  optical  limit  at  an  arbitrary  point  in 
space  can  now  be  derived  which  can  be  used  to  compute  the  scattering  cross  section  of  a 
conducting  body.  First  a  power  series  of  the  form 

E-e'*^®,, 

-o®  (31) 

n=0  CO 

can  be  used  for  the  high  frequency  asymptotic  expansion.  These  equations  imply  that  a 
field  can  be  made  up  of  a  sum  of  fields.  Each  of  these  separate  waves  are  generated  by 
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the  primary  field,  or  by  sources,  and  by  the  interaction  of  these  with  the  scattering  body 
or  parts  of  the  scattering  body  [1 1].  Next  the  above  equations  can  be  substituted  into 
Maxwell’s  equations  giving  the  following  expressions: 


x  E0  -  |iH0  =  0, 
xH0  +  bE0  =  0, 

(en/ Vvj/  x  E„  -  |iH„  =  jW  x  E„.p 

(e^Vvi/xHb+8E„  =  7VxHiM. 

E0  and  H0  are  orthogonal  to  Vv(/  which  can  be  shown  by  taking  the  dot  product  of  V\|/ 
with  the  equations  of  zero  order  in  the  above  equations.  Also,  E0  and  H0  are  orthogonal 
to  each  other  and  can  be  shown  by  taking  the  dot  product  of  E0  with  the  first  relation  in 
Equation  (32).  Therefore,  the  following  orthogonality  relations  hold: 


Vv|/-E0  =  VV.H0  =  E1,-HI,  =  0  (33) 

Using  the  first  equation  of  Equation  (32),  H0  can  be  solved  in  terms  of  Vy  and  E0  and 
substituted  into  the  second  equation  of  zero  order  to  obtain. 


H°=(ir)  VvxE°’ 


(34) 


where  the  orthogonality  of  Vv| /  and  E0  as  stated  in  Equation  (33)  was  used.  If  (Vvj/)2  =  1 , 
the  second  equation  in  Equation  (34)  can  be  satisfied  for  E0  that  is  not  equal  to  zero. 
Starting  with  the  last  two  Equations  in  (32 )  one  can  obtain  the  following: 


and 


f8r 

Vvj/  x  H,  +  —  E,  =  jcV  x  H0.  (36) 

\[i  J 

Next,  solve  the  first  equation  above  for  Hj  in  terms  of  Ej  and  E0  to  get 

(  \  ~V1 

H,=  ^  (Vy  xE,)-ivxE„  (37) 

Vs/  |i 

and  solve  the  first  equation  of  Equation  (32)  for  H0  in  terms  of  E0  to  get 

(Am 

H0  =  —  Vv|/xE0.  (38) 

Now  using  Equation  (36),  substitute  Equations  (37)  and  (38)  and  use  the  vector  identities, 
the  result  is 

aVv| /  =  V\j/  X  (v  X  E0 )-  (v  V  )E0  -  (Vv|/  •  V)E0  +  (E0  •  v)V\|/  (39) 

where  a  is  a  scalar  quantity  [1 1].  Equation  (39)  can  be  transformed  into  a  simple 
ordinary  differential  equation  for  Eq.  Applying  the  orthogonality  relationship  of 
Equation  (33)  and  the  fact  that  the  curl  of  a  gradient  is  zero  to  the  vector  identity  that 
gives  the  expression  of  the  gradient  of  the  dot  product  of  two  vectors  V*E  and  Eq  we  find 

Vy  x  (V  x  E0  )=  — (V\j/  •  V)E0  -  (E0  •  V)V\|/  .  (40) 

Substituting  Equation  (40)  into  Equation  (39) 

aVV=-2(VV-V)E„-(VVK-  <41> 

Looking  at  the  first  term  on  the  righthand  side  of  Equation  (41),  it  can  be  interpreted  as 
the  ordinary  derivative  with  respect  to  arc  length  s  along  the  ray  because  of  the  relation 
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(42) 


therefore, 

rlV 

aV\|/=-2-7i-(VVK-  («) 

as 

By  taking  the  dot  product  of  both  sides  with  the  quantity  Vvj/,  and  using  Equation  (33) 
and  (V\|/2)=l,  the  quantity  a  can  be  determined 

dE 

a  =  -2Vvj/  •— r2-,  (44) 

as 

and  since 

0=|(Vv.Et)=Eo.|(vv)+VV.^  (45) 

the  quantity  a  becomes 

a=2E„--7-VV.  (46) 

as 

Because  of  Equation  (42),  the  equation  for  a  can  be  written  as 

a  =  2E0-[Vy -V(VV)]  (47) 

Using  the  fact  that  (Vvj/2)=1,  one  can  find  that 

0  =  V(l)=  v[(Vv|/)2]=2Vh/  •  V(Vv|/).  (48) 

From  the  two  equations  above,  one  can  see  that  a  is  equal  to  zero  and  therefore 
Equation  (43)  becomes 

2-7i+(VVK  =  °-  w 

as 
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Equation  (49)  is  an  ordinary  differential  equation  along  a  ray  for  the  electric  field  strength 
E0  corresponding  to  the  lowest-order  (geometrical-optics)  approximation  for  the  limit  of 
small  wavelengths  [11].  The  E0  field  vector  can  be  expressed  as 


En  =  A  exi 


(50) 


where  A  is  a  constant  vector  that  is  the  value  of  E0  at  the  initial  point  determined  by  s=s0 
on  the  ray.  If  one  considers  a  length  of  ray  running  from  the  point  s0  to  an  arbitrary  point 
s,  and  surrounded  by  an  infinitesimal  tube  of  parallel  rays  with  wavefront  area  elements 
dcr0  and  dc^  capping  the  tube  at  the  points  s0  and  the  point  sb  E0  can  be  written  in  a 
simpler  form.  Next  consider  the  volume  integral  over  this  infinitesimal  tube  of  rays 

I  =  [Vfydv.  (51) 

Using  Gauss’s  theorem, 

/=fs  J(Vy)*ncfo,  (52) 


where  S  is  the  surface  surrounding  the  infinitesimal  tube  of  rays  and  n  is  the  outward¬ 
pointing  unit  normal  to  the  surface.  The  integrand  of  Equation  (52)  will  be  zero  except 
on  that  part  of  S  that  consists  of  the  two  wavefront  caps  since  V\p  has  the  direction  of  a 
ray.  The  volume  integral  becomes 


I=i  f^~-da0  =  1  J| 

'■  ds  1  *  ds  0  * 


da, 


V^o  J 


1 


ka0  (53) 


where  s,  is  the  wavefront  cap  at  the  point  S!  and  s0  is  the  wavefront  cap  at  the  point  s0. 
The  quantity  da,/dc0  is  the  Jacobian  of  the  point-to-point  transformation  from  the  surface 
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S0  to  the  surface  S,  given  by  the  rays  passing  through  both  surfaces  [1 1].  The  equation 


for  I  can  be  rewritten  as 


( da' 

ds  dG0  =  J1  JJ— 

(  ,  \ 
dal 

^dc 

r  o  \  J/ods 

-l  L 


The  surface  integration  can  be  taken  over  the  surface  S!  so  that 

(  ,  \ 


\d<3()  ds.  (54) 


=1 JJ 


dc0  d 


do,  ds 


Y±dads=. fj  Jylog 
\daj  ds 


r  ,  \ 

ad, 

\da0j 


Idv.  (55) 


Now  comparing  Equation  (55)  with  Equation  (51),  one  can  see  that 


Vv  =  *'°« 


(56) 


Substituting  Equation  (56)  into  Equation  (50) 


E0  =  A| 


f  j  \m 

do0 


dvj 


(57) 


where  dcro/dai  is  the  reciprocal  of  the  Jacobian  of  the  point-to-point  transformation.  The 
expression  for  the  magnetic  field  vector  can  be  obtained  from  Equation  (33)  and 
Equation  (57) 


H0  = 


K\iJ 


Vv[/  x  A\ 


f  ,  \m 

da o. 

\dv  j 


(58) 


It  can  be  shown  that  the  energy  on  a  wavefront  is  proportional  to  the  quantity  dcro/dc^ 
which  is  important  for  computing  the  geometrical-optics  scattering  cross  section  of  a 
body  [11]. 
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Now,  if  the  boundary  conditions  in  Equations  (29)  and  (30)  are  applied  to  the 
zero-order  term  in  Equation  (31)  for  the  electromagnetic  field  vectors,  along  with 
Equation  (57),  the  scattered  electromagnetic  field  in  the  optical  limit  at  an  arbitrary  point 
in  space  will  be  given  by 


and 

H,  =  [H,-2(n-H,.>^)  e"-  (60) 

where  the  quantity  s  is  the  arc  length  measured  from  the  reflection  point  on  the  scattering 
body  surface  to  the  point  of  observation  along  the  reflected  ray  through  the  point  [1 1]. 
The  reflection  on  the  surface  of  the  scattering  body  is  the  surface  element  da0  and  the 
reflected  wavefront  passing  through  the  point  of  observation  is  the  surface  element  dcr. 
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4.  Description  of  Waveforms 

The  impulse  waveform  that  was  used  is  a  sine  waveform  in  the  time  domain, 
which  becomes  a  rectangular  waveform  in  the  frequency  domain.  The  rectangular 
waveform  started  at  600  MHz  and  had  an  upper  frequency  of  1 . 1  GHz  with  a  constant 
amplitude.  This  yields  a  bandwidth  ratio  (upper  frequency  divided  by  the  lower 
frequency)  of  1 .83.  The  impulse  waveform  in  the  time  domain  is  shown  in  Figure  1 . 

Next,  a  fast  Fourier  transform  (FFT)  was  performed  to  obtain  the  impulse  waveform  in 
the  frequency  domain  as  shown  in  Figure  2. 

The  frequency  waveform  in  Figure  2  shows  an  overshoot  at  the  discontinuities 
(sharp  changes),  which  is  known  as  Gibbs  phenomenon.  In  the  neighborhood  of  points  of 
discontinuity  in  f(t),  the  Fourier  series  representation  fails  to  converge  even  though  the 
mean-square  error  in  the  representation  approaches  zero.  The  overshoot  peak  moves 
closer  to  the  point  of  discontinuity  as  more  terms  in  the  series  are  added,  but  the 
overshoot  still  exists. 

For  this  analysis,  the  second  waveform,  as  shown  in  Figure  3,  was  a  pulsed 
continuous  wave  (CW)  signal  centered  at  1  GHz  and  consisted  of  a  pulse  train  that  was 
on  for  25  Hz  and  off  for  250  Hz.  An  FFT  was  also  performed  to  obtain  the  frequency 
domain  waveform  as  shown  in  Figure  4.  An  unmodulated  CW  signal  was  not  used 
because  it  does  not  provide  any  range  information.  To  overcome  this  lack  of  range 
information,  the  CW  signal  is  modulated  to  provide  a  timing  mark.  The  timing  mark 
permits  the  time  of  transmission  and  the  time  of  return  to  be  identified.  The  accuracy  of 
the  measurement  of  the  transit  time  can  be  improved  with  a  sharper  or  more  distinct 
timing  mark.  When  the  timing  mark  becomes  distinct,  the  transmitted  spectrum  becomes 
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SINC  WAVE  FORM 


Figure  1 .  Graph  of  Impulse  Time  Domain  Waveform. 
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Figure  2.  Graph  of  Impulse  Frequency  Domain  Waveform. 
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Figure  3.  Graph  of  Pulsed  CW  Time  Domain  Waveform. 
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Figure  4.  Graph  of  Pulsed  CW  Frequency  Domain  Waveform. 
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broader.  Therefore,  a  finite  spectrum  must  be  transmitted  if  transit  time  or  range  is  to  be 
measured  [7].  Three  techniques  are  normally  used  in  modulating  CW  radars  to  broaden 
the  spectrum,  they  are  frequency,  phase,  and  pulse  coding. 

For  frequency  modulated  CW  radars  the  frequency  of  the  transmitted  signal  is 
varied,  and  the  range  is  measured  based  on  the  frequency  difference  between  the 
instantaneous  transmitted  and  received  signals.  The  transit  time  is  proportional  to  the 
difference  in  frequency  between  the  echo  signal  and  the  transmitter  signal.  The  greater 
the  transmitter  frequency  deviation  in  a  given  time  interval,  the  more  accurate  the 
measurement  of  the  transit  time,  and  the  greater  will  be  the  transmitted  spectrum  [7]. 
Typically,  frequency  modulations  of  the  CW  signal  are  triangular,  saw-tooth,  and 
sinusoidal. 

For  phase  coding  the  CW  signal,  either  a  binary  or  a  polyphase  code  can  be  used. 
For  binary  coding,  the  signal  is  divided  into  segments,  with  a  +1  represented  by  0°  phase 
implying  in-phase,  and  a  0  represented  by  a  1 80°  phase  shift  implying  out-of-phase,  with 
respect  to  the  carrier.  The  return  signal  can  then  be  correlated  with  a  delayed  version  of 
the  transmitted  code  to  produce  range  discrimination  approximately  equal  to  half  the  bit 
length  [6]. 

The  most  common  coding  technique  is  the  amplitude  modulation  employed  in  the 
pulse  radar  which  will  also  be  used  in  this  analysis.  In  this  technique,  the  range  to  the 
target  is  determined  by  measuring  the  time  taken  by  the  pulse  to  travel  to  the  target  and 
return.  The  range  R  is 

R  =  cAt  /  2,  (61) 
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where  c  is  the  velocity  of  light  and  At  is  the  two-way  transit  time. 

For  a  pulse  radar,  a  continuous  train  of  pulses  at  some  pulse  repetition  frequency 
(PRF)  is  transmitted.  It  is  important  that  a  sufficient  length  of  time  must  elapse  to  allow 
any  echo  signals  to  return  and  be  detected  before  the  next  pulse  may  be  transmitted. 
Therefore  the  rate  at  which  the  pulses  may  be  transmitted  is  determined  by  the  longest 
range  at  which  targets  are  expected  [7].  Ambiguities  in  measuring  range  might  result  if 
the  PRF  were  too  high  by  having  echo  signals  from  some  targets  arriving  before  the 
transmission  of  the  next  pulse.  These  range-ambiguous  targets  will  appear  to  be  at  a 
much  shorter  range  than  the  actual,  and  could  be  misleading.  The  maximum 
unambiguous  range  which  a  radar  can  measure  is  given  by 

R  „  =  —  (62) 

where  fr  is  the  PRF  in  Hz  [6].  Pulse  radars  have  many  advantages,  which  enable  returns 
over  a  specific  range  interval  to  be  selected  and  recorded,  and  unwanted  signals  from 
other  range  intervals  to  be  discriminated  against,  based  upon  their  time  of  arrival. 

For  this  analysis  a  Gaussian  waveform  (see  Figure  5)  is  used  as  a  baseline 
waveform.  The  frequency  domain  waveform,  as  shown  in  Figure  6,  implies  a  very  wide 
bandwidth. 
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Figure  5.  Graph  of  Gaussian  Time  Domain  Waveform. 
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GAUSS  I  AN  WAVE  FORM 
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Figure  6.  Graph  of  Gaussian  Frequency  Domain  Waveform. 
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5.  Finite  Difference  Time  Domain  Analysis 

To  investigate  the  effects  of  change  of  target  geometry  and  incident  pulse  shape, 
one  can  use  Finite  Difference  Time  Domain  (FDTD)  techniques.  The  scattered  field 
FDTD  formulation  starts  by  examining  Maxwell’s  equations  in  a  linear  medium: 


VxE  =  -dB/df 
VxH  =  0D/df+J 
V  D=  p 
V-B  =  0 


(63) 


where 


D  =  sE 

B=  pH 


(64) 


The  FDTD  formulation  only  requires  the  Maxwell’s  curl  equations  because  the 
divergence  equations  are  redundant  in  that  they  are  contained  within  the  curl  equations 
and  the  initial  conditions.  To  show  this,  one  takes  the  divergence  of  the  curl  equations  to 


obtain 


V-(VxE)=-|(V-B) 

and  since  divergence  of  a  curl  is  zero,  then 

-a(v-B)/a/=o 


(65) 


(66) 


implying  that 


V  •  B  =  constant  (67) 


and 


V-(Vx  H)=— (V-D)+ V- J 

ot 


(68) 
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where  again  divergence  of  a  curl  is  zero,  so 


pS 

— (V-D)+V-J  =  0  (69) 

ot 


and  the  continuity  equation  is 


V-J+dp/0r  =  O  (70) 

therefore 


d(W-D)/dt-dp/dt  =  0  (71) 


|[(V-D)-p]=0 


(72) 


implying  that 


V  •  D  -  p  =  constant .  (73) 

The  above  equations  used  the  vector  identity  V«V  x  A  =  0.  The  field  and  sources  are  set 
to  zero  at  the  initial  time  implying  that  V«B  and  (V*D-p)  must  be  zero  for  all  times  [12]. 
Therefore,  the  curl  equations  can  then  be  rewritten  in  the  following  form: 


H/3(  =  -— (VxE)-— H 

^  H-  (74) 

E/dt  =— E+-(VxH) 

8  8 


where  J=aE  to  allow  for  lossy  dielectric  material  and  also  included  the  possibility  of 
magnetic  loss  by  adding  a  magnetic  conductivity  term  o*.  Any  linear  isotropic  material 
property  can  be  specified  because  all  four  constitutive  parameters  e,  p,  o,  and  a  are 
present. 

The  E  and  H  fields  can  be  expressed  as 
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(75) 


=:  J£total 


j?  incident  ji  scattered 


and 


H  =  H,ota1 


jj  incident 


+  H 


scattered 


(76) 


The  incident  field  components  can  be  specified  analytically  throughout  the  problem  space 
and  the  scattered  fields  are  found  computationally.  Only  the  scattered  fields  are  required 
to  be  absorbed  at  the  problem  space  outer  boundaries.  The  scattered  wave  arises  on  and 
within  the  scattering  object  in  response  to  the  incident  field  so  as  to  satisfy  the 
appropriate  boundary  conditions,  which  are  the  Maxwell  equations  themselves,  on  or 
within  the  scattering  object.  For  a  perfect  conductor,  it  is  required  that  Escattered  =  -Emcident 
in  the  scatterer.  For  a  nonperfect  conductor,  the  scattered  fields  depend  on  the 
constitutive  parameters  of  the  material.  When  in  this  medium,  the  scattered  fields  are 
subject  to  the  Maxwell  equations,  while  outside  this  media  they  satisfy  the  free  space 
Maxwell  equations.  The  field  that  is  defined  as  being  present  in  the  absence  of  the 
scatterer  is  the  incident  field  because  it  always  propagates  in  free  space  even  when 
passing  through  the  scatterer  material  [12]. 

One  criteria  that  is  required  is  that  the  incident  and  scattered  fields  must  satisfy 
the  Maxwell  equations  independently.  The  total  field  propagates  in  free  space  outside  the 
scatterer  and  in  the  media  of  the  scatterer  when  it  is  propagating  within  the  scatterer. 
While  the  incident  field  travels  through  free  space  throughout  the  problem  space.  The 
total  fields  satisfy  the  following  equations  in  the  media  of  the  scatterer: 

V  x  E,otal  =  - |i5H,otal  / dt -g  *H‘otal  (77) 


and 
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V  X  H,otal  =  -80E,otal  /  dt + aE,otal . 


(78) 


The  incident  fields  traversing  the  media  satisfy  free  space  conditions 

VxE'nc=-|io0Hinc/d/  (79) 

and 

V  x  Hinc  =  so0Einc  /  dt.  (80) 

Rewritting  Equations  (77)  and  (78)  one  finds  the  following: 

V x (Einc  +  Escat)=  -\id (Hinc  +  Hsca,)/^-a*(Hinc  +  Hscat)  (81) 
and 

Vx  (Hinc  +  Hsca,)=  80(Einc  +Esca,)/0f+a(Einc  +Escat).  (82) 

To  obtain  the  equations  governing  the  scattered  fields  in  the  media,  the  incident  fields  are 
subtracted  from  Equations  (81)  and  (82). 

V x  Escat  =  -|x0Hscal /dt-G *Hscal  - [(^t  -  |i.0^Hinc  /dt -a  *Hinc]  (83) 
and 

V  x  H8*3'  =  edEscat  /dt+ aE^1  +  [(e  -  8  0  ^Einc  /  dt  +  aEinc  ]  .  (84) 

The  total  fields  satisfy,  outside  the  scatterer  in  free  space,  the  following  relationship: 

V  x  E,otal  =  -  |io0H,otal  /  dt  (85) 

and 

V x  Htotal  =  805E,o,al  /dt  (86) 

which  can  also  be  written  as 

V  X  (E”c  +Escat)=-  \i0d  (Hinc  +  H  "*)/dt  (87) 

and 
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V  x  (Hinc  +  Hsca,)=  z0d  (Einc  +  Esca')/  dt.  (88) 

To  obtain  the  equations  governing  the  scattered  fields  in  free  space,  subtract  the  incident 
fields  from  the  above  equations  to  find  the  following: 

VxE^-i^dH^/^  (89) 


and 


V  x  Hscat  =  e  0dEscal  /  dt .  (90) 

Equations  (83)  and  (84)  can  now  be  rearranged  so  that  the  time  derivative  of  the  field  is 
expressed  as  a  function  of  the  remaining  terms  for  ease  in  generating  the  appropriate 
difference  equations 


5H 


-a*  a  *  (u  -  |i0)dHin 

_ w  TTscat  _  TI me  _  \r~  r~u/ _ 

dt  ~  |i  \i  J x  dt 


— (VxEscat)  (91) 


and 


dE 


scat 


-  —  Escat  - — Einc  -  ^  —■ — - -(V 


xr).  (92) 


dt  z  z  z  dt  z 

The  perfect  conductor  will  first  be  analyzed  for  the  finite  difference  time  domain 

formulation.  First  look  at  the  scattered  fields  outside  the  scatterer  which  satisfy  the  free 
space  conditions  where  a  =<r=0,  p=Po>  s=£o.  Equations  (91)  and  (92)  therefore 
reduce  to 


=  (VxE”1) 

dt 


(93) 


and 

=—  (VxHscat).  (94) 

dt  s0 
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Next,  in  the  perfect  conductor  the  scattered  E-field  can  be  written  as 


=  -Einc  -  ^  £°)aE— +— (V  x  Hscat)  (95) 

g  dt  G  dt  G 

For  a  perfect  conductor  a=oo.  Substituting  a=°o  into  Equation  (95),  one  gets 

Eseat  =-Einc.  (96) 

Equation  (96)  need  only  be  applied  at  the  surface  of  the  perfect  conductor  because 
interior  portions  of  the  perfect  conductor,  if  present,  are  completely  isolated  from  the  rest 
of  the  problem  space  [12].  The  free  space  scattered  field  equations  can  now  be 
differenced.  This  is  done  by  replacing  derivatives  with  differences 

df  ..  f(x,tJ)-f(x,tl)  f(x,t,)-f(x,t,) 

- At - “ - AT  <97) 


and 


df  f(x2,t)-f(x„t)  f(x2,t)-f(x„t) 

-5 —  =  lim - 7 - « - t— - 

d  x  ax-»o  Ax  Ax 


where  the  approximations  At  =  t2  - 1]  and  Ax  =  x2  -  X!  and  both  are  finite  rather  than 
infinitesimal.  An  explicit  central  difference  scheme  will  be  used  that  only  retains  first 
order  terms  and  the  E  and  H  fields  are  interweaved  spatially  and  temporally. 

The  vector  Maxwell  curl  equations  governing  the  scattered  fields  will  be 


decomposed  into  their  component  scalar  parts,  obtaining 


dE? 

1 

raHf 

aHf" 

dt 

~~  80 

[dy 

a  Z  ; 

1 

m? ' 

at 

^  a  z 

a  x  j 

(99) 


(100) 
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aEf 
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f5H”  aH~) 

at 

eo 

lax  a  y  J 
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scat 


d  t  p. 


dE] -  5E 


scat 
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oV 


d  z  5  y 


an 


scat 


at 
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aEsca*  aE: 


j 

scat  A 


d  x  a  z  ) 


aEscal  aE: 


scat 


A 


St  M-o  V 

Replacing  with  differences  results  in 


ay  d  x  ) 


J£scat,n  _ J£scat,n-1 

_1_ 

^jjscat,n-l/2 

AHsca,,n-./2- 

At 

eo 

_  Ay 

A  z 
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"y  ^y 

1 
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At 

ii 
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Ax 

j£scat,n  y  scat,n-l 
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Apf scat, n-l/2 

At 

^0 

A  x 

Ay  J 
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A  t 
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AEseat,n 
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scat,n 
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.  Ay 

A  x 

(101) 


(102) 


(103) 


(104) 


(105) 


(106) 


(107) 


(108) 


(109) 


(110) 


Now  the  above  equations  can  be  put  into  the  form  used  in  a  perfectly  conducting 
version  of  a  FDTD  code.  The  first  step  is  to  quantify  space  by  letting  x  =  I  Ax,  y  =  JAy, 
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and  z  =  KAz,  and  quantify  time  by  letting  t  =  nAt.  Next,  uniform  cells  are  defined  in  the 
problem  space  and  can  be  located  by  the  I,  J,  and  K  indices.  As  shown  in  Figure  5,  the 
“Yee  cell”  has  the  field  components  located  at  the  offsets.  In  Yee  notation  Ezn  (I,J,K) 
represents  the  z  component  of  the  electric  field  at  time  t  =  nAt  and  at  spatial  location  x  = 
IAx,  y  =  JAy,  and  z  =  (K+l/2)Az  [13]. 


y.J 


Figure  7.  Location  of  the  Six-field  Evaluation  Points  in  a  Typical  Yee  Cell. 
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6.  Description  of  the  Targets 

In  this  analysis,  three  objects  are  identified  using  the  impulse  waveform  and  a 
pulsed  CW  waveform,  and  a  comparison  between  the  two  waveforms  for  the  three  objects 
is  made.  The  first  object  is  a  simple  perfect  conductor  sphere  shaped  object,  as  shown  in 
Figure  8.  The  second  object  is  a  perfect  conducting  square  plate,  as  shown  in  Figure  9, 
and  the  third  object  is  an  elliptical  shape  with  a  cylinder  rod  through  the  center,  as  shown 
in  Figure  10.  The  objects  are  constructed  in  Yee  cells.  The  first  important  determination 
is  the  cell  size.  The  cell  size  must  be  small  enough  to  permit  accurate  results  at  the 
highest  frequency  of  interest,  but  large  enough  to  keep  the  computational  time 
manageable.  The  fundamental  constraint  is  that  the  side  of  each  cell  should  be  1/1  OX  or 
less  at  the  highest  frequency  (shortest  wavelength)  of  interest  [12].  For  this  analysis,  the 
highest  frequency  is  1.1  GHz,  which  gives  a  cell  size  of  0.027m.  However,  to  resolve  the 
shape  of  the  sphere  the  cell  size  needed  to  be  reduced  to  0.014m.  The  radius  of  the 
sphere  was  19.5  cells  with  a  50  x  50  x  50  mesh.  The  square  plate  is  30  x  30  cells  with  a 
60  x  60  x  60  mesh. 


36 


Figure  8.  Perfect  Conducting  Sphere.  Radius  -  19.5  cells.  Cell  Size  0.014m, 
50  x  50  x  50  Cell  Mesh. 


s 
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Figure  9.  Perfect  Conducting  Square  Plate.  30x30  Celia.  60  x  60  x  60  Cell  Mesh. 
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Figure  10.  Complex  Object  -  Perfect  Conducting  Elliptical  Shape  With  a  Cylinder  Rod 
Through  the  Center. 
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7.  Description  of  Algorithm  Runs 

The  Phillips  Laboratory  FDTD  algorithm,  as  shown  in  the  Appendix,  written  by 
Dr  John  Beggs  and  developed  from  Yee’s  algorithm  was  modified  to  obtained  the  data 
that  are  required  for  this  analysis.  The  program  was  modified  so  that  the  impulse 
waveform  and  the  pulsed  CW  could  be  used  as  the  input  source.  The  objects  were  also 
created  so  that  they  could  be  used  for  targets  for  the  FDTD  algorithm.  Pseudo  codes  for 
the  FDTD  algorithm  which  consists  of  a  main  program  and  a  post  process  program  are 
shown  below. 

Main  Code  (temac3d.f) 

call  setup  -  initializes  equation  multipliers  and  material  constitutive  parameters 

call  readmesh  -  build  the  mesh  by  assigning  materials  to  building  blocks 

Do  n  =  1 ,  number  of  time  steps 

call  efields  -  advance  x,  y,  and  z  efield  components  one  time  step 
call  liao  -  apply  outer  radiation  boundary  conditions.  This  allows  the 

scattered  fields  to  travel  outward  without  reflecting  off  the  mesh 
walls. 

call  hfields  -  advance  x,  y,  and  z  hfield  components  one  time  step 
call  farfield  -  integrate  efields  over  surface  surrounding  scattering  object  to 
obtain  vector  potentials  on  this  surface  for  each  time  step 

continue 

call  finishfarfield  -  transform  Cartesian  vector  potential  components  on 

surrounding  surface  to  spherical  vector  components  at  each 
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time  step  for  both  scattered  and  incident  fields.  Transform 
spherical  vector  components  to  far  field  electric  field 
components, 
end 

Post  process  code  tfzproc.fi  -  compute  radar  cross  section  vs.  frequency  from  data 
output  by  temac3d.f. 

call  readin  -  read  in  the  time  domain  information  from  temac3d  output  such  as 
mesh  parameters  and  scattered  and  incident  efield  components  (far 
zone). 

call  wrttim  -  write  out  the  time  domain  far  zone  scattered  and  incident  fields  into 
separate  files. 

call  cmpfft  -  perform  fast  Fourier  transforms  on  efield  data 
call  cmprcs  -  compute  the  radar  cross  section 
call  wrtrcs  -  write  radar  cross  section  to  a  data  file 
end 

The  FDTD  program  was  processed  on  a  Sun  SPARC  Station  10  computer.  The 
runs  for  the  perfect  conducting  sphere  and  square  plate  with  the  Gaussian  waveform  took 
approximately  14  minutes  with  1000  time  steps.  With  the  impulse  waveform  and  the 
pulsed  CW,  the  runs  took  approximately  one  hour  because  5000  time  steps  were  used. 
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8.  Analysis  of  Results 

To  make  sure  the  FDTD  algorithm  was  obtaining  the  correct  results,  the  code  was 
modified  to  use  a  Gaussian  input  so  the  results  could  be  compared  to  the  results  obtained 
by  Kunz  and  Luebbers  [12]  as  shown  in  Figure  1 1 .  The  incident  angle  used  was  22.5°. 

The  results  from  the  FDTD  algorithm  used  for  this  analysis,  as  shown  in  Figure  12,  was 
very  close  to  the  results  Kunz  and  Luebbers  obtained,  as  shown  in  Figure  1 1,  for  a  perfect 
conducting  sphere.  For  Figures  1 1  and  12,  the  radar  cross  section  is  in  dB  and  not 
normalized  to  7ta2. 

There  are  three  distinct  regions  in  the  radar  cross  section  for  a  perfect  conducting 
sphere.  The  Rayleigh  region  or  the  low  frequency  region  of  the  radar  cross  section  varies 
as  the  inverse  of  the  fourth  power  of  the  wavelength  of  the  incident  radiation.  In  this 
region,  the  circumference  is  less  than  one  wavelength.  The  second  region,  the  resonance 
region  (1  <  2na/X  <  10)  is  the  transition  region  that  is  characterized  by  a  damped 
oscillation  about  the  a/na2  =  1  value  when  the  radar  cross  section  is  normalized  to  7ta2 
and  not  in  dB.  The  interference  between  a  specular  component  and  a  component  due  to 
waves  which  are  exponentially  damped  as  they  creep  around  the  shadowed  portion  of  the 
sphere  and  circumnavigate  it  to  be  relaunched  in  the  direction  of  the  radar  receiving 
antenna  causes  the  oscillation.  The  optical  or  high  frequency  region  (2na/X  >  10),  the 
radar  cross  section  levels  down  to  a  value  of  a/na  =  1  when  normalized  to  na  ,  which  is 
the  visual  projected  area  of  the  sphere  [14]. 

The  angle  of  incidence  was  changed  to  0°  to  compare  the  radar  cross  section  of  the 
sphere  for  the  impulse  waveform  and  the  pulsed  CW.  In  addition,  the  Gaussian  was  also 
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Fieure  1 1  Radar  Cross  Section  of  Perfect  Conducting  Sphere  obtained  by  Kunz  and 
B  '  Luebbers  [12]  for  Gaussian  input  waveform,  1000  time  steps,  mcident  angle  - 


22.5°. 
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RCS  OF  PERFECT  CONDUCT  I NG  SPHERE 


Frequency  Tn  GTgciHz 

12.  Radar  Cross  Section  of  Perfect  Conducting  Sphere  for  Gaussian  input 
waveform,  1000  time  steps,  incident  angle  =  22.5  . 


used  as  a  baseline  as  shown  in  Figure  13.  Figure  14  shows  the  radar  cross  section  of  the 
perfect  conducting  sphere  for  the  impulse  waveform.  The  vertical  lines  that  are  displayed 
on  the  graph  are  caused  by  numerical  error  and  because  the  amplitude  of  the  input  plane 
wave  is  nearly  zero  outside  600  MHz  to  1.1  GHz  which  is  the  same  order  of  magnitude 
of  the  round  off  error  due  to  the  finite  differencing  (terms  of  the  Taylor  series  are 
dropped).  Figure  15  shows  the  pulsed  CW  radar  cross  section  of  the  perfect  conducting 
sphere.  At  1  GHz  the  graph  matches  both  the  Gaussian  and  impulse  waveforms. 
However,  at  all  the  other  frequencies,  the  data  is  incorrect  due  to  the  input  signal  of  the 
pulsed  CW  having  zero  amplitude  at  all  frequencies  except  at  1  GFIz. 

Figure  16  shows  the  radar  cross  section  of  the  perfect  conducting  square  plate  for 
a  Gaussian  input  waveform  with  an  incident  angle  of  zero.  For  a  planar  surface  which  is 
placed  perpendicular  to  the  range  vector  from  the  radar  (i.e.,  normal  incidence)  its 
effective  aperture  which  intercepts  the  power  flux  density  is  equal  to  its  area  A.  Because 
the  surface  of  the  square  plate  is  smooth,  most  of  the  power  is  reflected  back  in  the 
perpendicular  direction,  with  a  gain  related  to  the  aperture  A,  as  follows: 


The  effective  cross  section  of  a  large,  smooth  plate  in  the  normal  direction  is  given  as 

a  =  AG  =  2nA“2 » 1.  0 12) 

A. 
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Figure  13.  Radar  Cross  Section 
waveform,  1000  tim< 


of  Perfect  Conducting  Sphere  for  Gaussian  input 
:  steps,  incident  angle  =  0  . 
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RCS  OF  PERFECT  CONDUCTING  SPHERE 


Figure  14.  Radar  Cross  Section  of  Perfect  Conducting  Sphere  for  Impulse  Input 
Waveform,  5000  Time  Steps,  Incident  Angle  -  0  . 
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Figure  15.  Rato  Cross  Section  of  Perfect  Conducting  Sphere  for  Pulsed  CW  Input 
Waveform,  5000  time  steps,  Incident  Angle  -  0  . 


RCS  OF  PERFECT  CONDUCTING  PLATE 


Figure  16.  Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  for  Gaussian 
input  waveform,  5000  time  steps,  mcident  angle  0  . 
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Equation  (112)  implies  that  a  of  a  large  plane  is  much  larger  than  the  area  A  of  that  plane, 
but  only  at  a  normal  incidence.  At  other  than  normal  incidence  the  dependence  of  a  on 
the  angle  of  incidence  (measured  from  the  normal),  for  a  square  flat  plate  is  given  as 


G  = 


471  <3 4  sin(kasin0) 
A2  (ka  sinG  ) 


(113) 


where  a  is  the  length  of  the  side  [8].  When  the  impulse  input  waveform  is  used,  as  shown 
in  Figure  17,  the  graph  matches  the  Gaussian  input  waveform  in  the  600  MHz  to  1.1  GHz 
frequency  range.  Also,  the  pulsed  CW  waveform  as  shown  in  Figure  18  is  in  agreement 
at  the  operating  frequency  of  1  GHz. 

Next,  the  incident  angle  was  changed  from  normal  incidence  to  22.5°  from  the 
normal  in  order  to  observe  the  difference  in  polarization  for  both  the  impulse  and  pulsed 
CW  input  waveforms.  Figure  19  shows  the  radar  cross  section  of  the  perfect  conducting 
square  plate  for  the  impulse  input  waveform  with  a  horizontal  polarization  and  an 
incident  angle  of  22.5°.  The  polarization  was  changed  to  vertical  and  the  radar  cross 
section  is  shown  in  Figure  20.  It  follows  from  these  graphs,  the  radar  cross  section  is 
different. 

For  a  complete  description  of  the  interaction  of  the  incident  wave  and  the  target  is 
given  by  the  polarization  scattering  matrix  (S)  which  relates  Es  and  Ej  component-by- 
component.  Since  E  can  be  decomposed  into  two  independent  directions  or  polarizations, 
S  is  the  four  element  matrix 
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RCS  OF  PERFECT  CONDUCTING  SPHERE 


Figure  17.  Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  for  Impulse 
Input  Waveform,  5000  Time  Steps,  Incident  Angle  -  0  . 
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RCS  OF  PERFECT  CONDUCTING  PLATE 


Figure  19. 


Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  for  Impulse 
Input  Waveform,  Horizontal  Polarization,  Incident  Angle  22.5  . 
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RCS  OF  PERFECT  CONDUCTING  PLATE 


Figure  20. 


Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  for  Impulse 
Input  Waveform,  Vertical  Polarization,  Incident  Angle  22.5  . 
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The  components  of  S  are  related  to  target  radar  cross  section  by 


Sjk  =  (*™2J'12  fiTk  (115) 

where  Vg"  is  a  complex  number  that  contains  phase  as  well  as  amplitude  informa¬ 
tion  [6]. 

The  radar  cross  section  for  the  pulsed  CW  input  waveform  is  also  different  for 
horizontal  and  vertical  polarizations.  Although  the  only  information  we  get  for  the 
pulsed  CW  is  at  1  GHz,  the  amplitude  for  the  horizontal  polarization,  as  shown  in 
Figure  21,  is  much  higher  than  that  for  vertical  polarization  as  shown  in  Figure  22. 

Next,  a  complex  object,  consisting  of  an  ellipsoid  with  a  cylinder,  was  used  as  a 
target.  This  object  consists  of  a  number  of  different  surfaces.  Therefore,  the  radar  cross 
section  is  very  difficult  to  predict.  Figure  23  shows  the  radar  cross  section  of  the  perfect 
conducting  ellipsoid  with  a  cylinder  for  the  impulse  input  waveform  with  a  horizontal 
polarization  and  an  incident  angle  of  22.5°  from  the  normal.  The  polarization  was 
changed  to  vertical  and  the  radar  cross  section  is  shown  in  Figure  24.  Once  again  it  is 
shown  that  the  radar  cross  section  is  very  different  between  the  two  polarizations. 

Figure  25  shows  the  radar  cross  section  for  the  pulsed  CW  input  waveform  with  a 
horizontal  polarization  and  an  incident  angle  of  22.5°  from  the  normal.  The  vertical 
polarization  radar  cross  section  for  the  pulsed  CW  input  waveform,  as  shown  in 
Figure  26,  shows  a  much  lower  amplitude  at  1  GHz  than  for  horizontal  polarization. 


55 


RCS  OF  PERFECT  CONDUCTING  PLATE 


Figure  21 .  Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  foresee!  CW 
Input  Waveform,  Horizontal  Polarization,  Incident  Angle  -  22.5  . 
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RCS  DB/M* M 


RCS  OF  PERFECT  CONDUCTING  PLATE 


Figure  22.  Radar  Cross  Section  of  Perfect  Conducting  Square  Plate  for  Pulsed  C 
Input  Waveform,  Vertical  Polarization,  Incident  Angle  -  22.5  . 
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RCS  OF  PEC  ELLIPSOID  WITH  CYLINDER 


Figure  23.  Radar  Cross  Section  of  Perfect  Conducting  Ellipsoid  with  a  Cylinder  for^ 
Impulse  Input  Waveform,  Horizontal  Polarization,  Incident  Angle  —  22.5  . 
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RCS  OF  PC  ELLIPSOID  WITH  CYLINDER 


Figure  25.  Radar  Cross  Section  of  Perfect  Conducting  Ellipsoid  with  a  Cylinder  for 

Pulsed  CW  Input  Waveform,  Horizontal  Polarization,  Incident  Angle  =  22.5  . 
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RCS  OF  PC  ELLIPSOID  WITH  CYLINDER 


0-00  0.25  0-50  0.75  1.00  1.25  1.50 

Frequency  In  GigaHz 


Figure  26.  Radar  Cross  Section  of  Perfect  Conducting  Ellipsoid  with  a  Cylinder  for 
Pulsed  CW  Input  Waveform,  Vertical  Polarization,  Incident  Angle  =  22.5°. 
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9.  Conclusions 


The  major  advantage  of  using  an  impulse  radar  is  that  there  will  be  more  body 
resonances  from  an  object  because  of  the  larger  frequency  band.  Therefore,  the  radar 
cross  section  will  be  very  close  to  an  ideal  Gaussian  in  the  frequency  band  of  operation. 
The  pulsed  CW  waveform  will  only  be  exact  at  the  one  frequency  of  operation. 

Therefore,  with  an  impulse  waveform,  detectability  and  identification/resolution  can  be 
greatly  improved  when  compared  to  a  pulsed  CW  radar. 

The  radar  cross  section  data  from  this  analysis  demonstrated  that  the  impulse 
waveform  provides  more  target  information  than  from  the  pulsed  CW  waveform.  The 
resolution  of  an  object  would  be  finer  with  an  impulse  waveform  than  with  a  pulsed  CW 
waveform,  as  depicted  in  Figure  27.  Figure  27  (a)  shows  the  resolution  of  an  object  using 
a  pulsed  CW  radar.  At  the  exact  frequency  of  the  body  resonance  (coc),  the  resolution  of 
the  object  is  fine.  If  the  pulsed  CW  radar  does  not  operate  at  the  exact  body  resonance 
(coc+Aod  or  coc-  Aa>),  the  resolution  of  the  object  will  not  be  fine  but  will  be  obscure.  The 
poor  resolution  makes  it  very  difficult  to  identify  the  object.  With  an  impulse  radar 
which  has  a  large  frequency  spectrum,  the  probability  of  exciting  a  body  resonance  of  an 
object  is  very  high.  This  allows  for  finer  resolution  and  improves  identification  of  an 
object  as  shown  in  Figure  27  (b).  This  can  be  very  important  in  target  recognition, 
especially  for  detection  of  underground  objects  such  as  mines.  By  using  a  modeling  code 
such  as  FDTD,  a  library  of  signatures  for  individual  targets,  and  for  specific  classes  of 
targets  can  be  established.  This  would  enable  one  to  compare  the  library  of  stored 
signatures  to  a  measured  signature  for  identifying  a  target. 
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coc  -  Aw  fi>c  ®c  Aw 


(b) 

Figure  27.  Example  of  Resolution  for  an  Object  Using  (a)  Pulsed  CW  and 
(b)  Impulse  Waveform. 
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The  advantages  of  the  FDTD  code  used  in  this  analysis  is  its  ability  to  work  with 
a  wide  range  of  frequencies,  stimuli,  objects,  environments,  response  locations,  and 
computers.  To  this  list  can  be  added  the  advantage  of  computational  efficiency  for  large 
problems  in  comparison  with  other  techniques  such  as  the  moment  of  methods,  especially 
when  broadband  results  are  required.  Its  accuracy,  using  a  sufficient  number  of  cells,  can 
be  made  as  high  as  desired.  Conversely,  engineering  estimates  of  a  few  decibels’ 
accuracy  can  be  made  with  a  few  cells  [12]. 

An  impulse  radar  does  not  only  have  a  finer  resolution  than  a  pulsed  CW  radar, 
but  also  provides  low  clutter.  This  significantly  improves  the  target  detectability  in 
strong  range  distributed  clutter.  Moreover,  since  the  impulse  is  very  short,  it  is  ideal  for 
target  range  determination,  using  time  delay  techniques.  Once  the  target  is  detected,  the 
determination  of  its  range  involves  measuring  the  time  for  the  signal  to  travel  from  the 
source  to  the  target  and  then  scatter  back  to  the  receiver.  A  pulse  train  can  easily  be 
tagged  by  an  exaggerated  or  abbreviated  duty  cycle  to  eliminate  pulse  ambiguities.  The 
target  azimuth  and  elevation  would  then  be  determined  by  conventional  pointing  and 
tracking  techniques. 

Additional  signal  processing  can  also  be  used  to  enhance  the  signature(s),  extract 
the  values  of  the  parameter  set  of  interest,  and  reduce  noise  which  can  add  to  the 
advantages  of  temporal  resolution  and  large  spectral  information  that  an  impulse  radar 
provides.  For  example,  the  Prony  method  may  be  used  to  extract  poles,  which  provides  a 
means  of  target  identification  using  target  natural  resonance  responses  as  a  type  of  target 
signature.  A  recommended  continuation  of  this  thesis  would  not  only  consist  of 
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additional  signal  processing,  but  also  would  include  a  comparison  of  the  analysis  with 
actual  impulse  radar  experimental  data. 
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Appendix 
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program  temac 

Phillips  Laboratory  TEMAC3D  code— Temporal 
ft  prtroMacrnetic  Analysis  Code. 

Sts  co29is  a  Finite-Difference  Time-Domin 
Electromagnetic  Analysis  code  based  upon  the 
Yee  algorithm  [1] .  This  version  of  TEMAC3D 
has  the  following  capabilities: 

l  )  Free  space  material 

2. )  Perfect  electrical  conductor  material 

3 .  )  Lossy  dieletric  material 

4  )  Lossy  magnetic  material  ,  ,  . . 

5'.)  Dispersive  dielectric  material  (not  yet) 

6. )  Dispersive  magnetic  material  (not  y 

7. )  Surface  impedance  (not  yet) 

8. )  Nonlinear  materials  (not  yet) 

9. )  Nonlinear  lumped  elements  (not  yet) 

10. )  Thin  slots  (not  yet) 

11. )  Thin  wires  (not  yet) 

12. )  Lumped  circuit  elements  (not  yet) 

13. )  Thin  sheets  (not  yet)  /rrcmrM 

14. )  Liao  Outer  Radiation  Boundary  Condition  (ORBC) 

15. )  Near  to  far-field  transformation 

16. )  Point  source  or  plane  wave  source 

17 .  )  Point  sensor  or  slice  sensor 

For  additional  information  contact . 

Dr.  John  H.  Beggs 
PL/WSR 

3550  Aberdeen  Ave.  SE 
Kirtland  AFB,  NM  87117-5776 
(505)  846-4482 
DSN:  246-4482 
FAX:  (505)  846-0417 

E-mail:  jbeggs@chili.plk-af.mil 


~  Now  begins  the  main  portion  of  the  program. 


INCLUDE  'main.h' 

real  dtime,  etime,  timer (2) 
external  dtime,  etime 


Zero  variables  and  arrays 

This  subroutine  call  eliminates  any  appreciable  time  penalties 
associated  with  underflowing 

call  abrupt_underf low () 
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c 


call  nonstandard_arithmetic 0 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


CALL  ZERO 

Compute  the  constants  used 
CALL  SETCON 

Set  up  the  incident  field,  sensors,  constant  multipliers 
defaults  and  user  definitions 

CALL  SETUP 

Read  the  mesh  file  if  a  geometry  is  desired 
IF  ( .NOT . freesp)  CALL  READMS 

initialize  the  far  field  transformation  if  desired 
IF  (ffldon)  CALL  INITFF 


Initialize  the  Liao  ORBC 


CALL  STLIAO 

The  main  loop  for  field  solution  is  next 
is  as  follows: 


The  organization 


1. )  Update  Ex  field  components 

2. )  Update  Ey  field  components 

3. )  update  Ez  field  components 

4  )  update  time  by  1/2  step 

5. )  update  any  electric  field  point  sources 

6. )  Update  Hx  field  components 

7. )  Update  Hy  field  components 

8. )  Update  Hz  field  components 

9. )  update  time  by  1/2  step 

10. )  Save  point  or  slice  sensor  data 

11 .  )  Update  far-f ield  vector  potentials 

DO  10  n=l, tsteps 

IF  (mod(n,  10)  .EQ.O)  THEN  . 

OPEN  (UNIT=99, FILE=' howfar' , access-  append  ) 
if (n.eq.lO)rewind  99 
write (99, *) ' etime=' , etime (timer) 
write (99, *) ' dtirne-' ,dtime (timer)  f  tsteDS 
WRITE  (99,*)  'At  time  step,  ,n,  of,  ,tstep 
WRITE  (*,*)  'At  time  step  ,n,  or 
CLOSE  (UNIT=99) 

END  IF 


tsteps 


Update  Ex  field  components 


CALL  UPDEXS 

Update  Ey  field  components 


c 

c 

c 
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o  o 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

10 


c 

c 

c 

c 

c 


c 

c 

c 


CALL  UPDEYS 

Update  Ez  field  components 
CALL  UPDEZS 

Update  any  point  source  functions 
IF  (pntsrc)  CALL  PSRCE 

Apply  Liao  Outer  Radiation  Boundary  Condition 
CALL  LIAO 

Advance  time  by  1/2  step 

time=time+delto2 

Update  Hx  field  components 

CALL  UPDHXS 

Update  Hy  field  components 
CALL  UPDHYS 

Update  Hz  field  components 
CALL  UPDHZS 


Advance  time  by  1/2  step 


time=time+delto2 

Save  sensor  data  if  desired 

IF  ( (npoint  .ge,  1) .OR. (nslice  .ge.  1))  CALL  SENSOR 
Update  far  field  vector  potentials  if  desired 
IF  (ffldon)  CALL  FARFLD 
CONTINUE 


Finish  the  far  field  transformation  by  transforming 
tS  Cartesian  vector  potentials  to  spherical  electric 
far  field  components 

IF  (ffldon)  CALL  FINFF 
End  of  program 


STOP 

END 
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C234567 

c 

SUBROUTINE  ZERO 


C 

INCLUDE  'main.h' 


c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This  subroutine  zeros  all  of  the  variables  and  arrays 
used  during  the  TEMAC  execution. 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
j=cell  coordinate  number  in  y  direction 
k=cell  coordinate  number  in  z  direction 
l^loop  counter  over  order  number  for  zeroing  arrays  used 
in  the  Liao  ORBC 

m^loop  counter  over  time  bins  for  zeroing  far  field 
vector  potential  array 


★★*★★★★*★★★★+******* 


INTEGER  i, j, k,  1 
INTEGER  m 
time=0 . 0 
delt=0.0 
dtinv=0.0 
costh=0 . 0 
sinth=0 . 0 
cosphi=0 . 0 
sinphi=0.0 
phipol=0 . 0 
eamplx=0 . 0 
eamply=0 . 0 
eamplz=0 . 0 
hamplx=0 . 0 
hamply=0 . 0 
hamplz=0 . 0 
samplx=0 . 0 
saitply=0 . 0 
sairtplz=0 . 0 
cosa=0 . 0 
cosb=0.0 
cosg=0.0 
toff =0.0 
tau0=0 . 0 
nxl=nx-l 
nyl=ny-l 
nzl=nz-l 


DO  30  k=l,nz 
DO  20  j=l,ny 
DO  10  i=l,nx 

exscat (i, j,k)=0.0 
eyscat (i, j, k)=0 . 0 
ezscat(i, j,k)=0.0 
hxscat(i, j,  k)=0 . 0 
hyscat (i, j, k)=0.0 
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hzscat (i, j,k)=0.0 
idl(i,  j,k)=0 
id2(i,  j,k)=0 
id3(i,  j,k)=0 
id4(i,  j,k)=0 
id5(i,  j,k)=0 
id6(i,  j,k)=0 
10  CONTINUE 

20  CONTINUE 

30  CONTINUE 

DO  70  k=l,nzl 
DO  60  j=l,nyl 
DO  50  1=1, order 
DO  40  i=l,2 

eybakx (i, 1, j, k)=0.0 
ezbakx (i, 1, j, k)=0.0 
40  CONTINUE 

50  CONTINUE 

60  CONTINUE 

70  CONTINUE 

DO  110  k=l,nzl 
DO  100  i=l,nxl 
DO  90  1=1, order 
DO  80  j=l, 2 

exbaky ( j , 1,  i, k) =0 . 0 
ezbaky (j,l,i,k)=0.0 
80  CONTINUE 

90  CONTINUE 

100  CONTINUE 

110  CONTINUE 

DO  150  j=l,nyl 
DO  140  i=l, nxl 
DO  130  1=1, order 
DO  120  k-1,2 

exbakz (k, 1, i, j ) =0 . 0 

eybakz (k, 1, i, j)=0.0 

120  CONTINUE 

130  CONTINUE 

140  CONTINUE 

150  CONTINUE 

DO  170  m=l, inmax 
DO  160  i=l, 6 

uandw(i,m)=0.0 

160  CONTINUE 
170  CONTINUE 

DO  190  k=l, nz-9 
DO  180  j=l,ny-9 
tretx( j,k, 1)=0.0 
tretx( j,k, 2) =0.0 
180  CONTINUE 
190  CONTINUE 

DO  210  k=l, nz-9 
DO  200  i=l,nx-9 
trety (i,k, 1)=0.0 
trety (i,k,  2) =0.0 
200  CONTINUE 
210  CONTINUE 

DO  230  j=l,ny-9 
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DO  220  i=l,nx-9 
tretz (i, j, 1)=0 .0 
tretz (i, j,2)=0.0 
220  CONTINUE 
230  CONTINUE 
RETURN 
END 


c  variable s.h 

r5 

i  £  ^ssr^sssi 

c  in  two  other  .h  files  (farfld.h  and  liao.h). 


Variable  dictionary 

ddtein=constant  multiplier  for  time  derivative  of  incident  field 
term  in  lossy  dielectric  e-field  update  equations 
ridthin=constant  multiplier  for  time  derivative  of  incident  field 
term  in  lossy  Lgnetic  h-field  update  equations 
dedx=constant  multiplier  for  lossy  dielectric  h-field  update 

dedy=cSstantSmultiplier  for  lossy  dielectric  h-field  update 

dedz-cSstanrmultiplier  for  lossy  dielectric  h-field  update 
equations 
delt=time  step 

^dx=constant* multiplier  for  lossy  dielectric  e-field  update 

dhdy-constant^multiplier  for  lossy  dielectric  e-field  update 

dhdz=cS!stantSmultiplier  for  lossy  dielectric  e-field  update 
equations 

dt=e£ionst£t  multiplier  for  free  space  h-field  update  equations 

dt-  oedv=constant  multiplier  for  free  space  h-field  update  equations 

dtoedz-constant  multiplier  for  free  space  h-field  update  equations 

dtomdx=constant  multiplier  for  free  space  e-field  update  equations 

dtomdy-constant  multiplier  for  free  space  e-field  update  equations 

dtomdz-constant  multiplier  for  free  space  ^  10 

einc=constant  multiplier  for  incident  field  term  m  lossy 
dielectric  e-field  update  equations 
eold=constant  multiplier  for  lossy  dielectric  e-field  update 

eps=arraytcontaining  permittivity  values  for  the  material  types 
exs cat =s catt ered  x-directed  electric  field 
eyscat-scattered  y-directed  electric  field 
ezscat=scattered  z-directed  electric  field  , 

hinc=constant  multiplier  for  incident  field  term  in  lossy 
magnetic  h-field  update  equations  ,  .  _ 

hold-constant  multiplier  for  lossy  magnetic  h-field  update 

equations  . 

hxscat=scattered  x-directed  magnetic  field 
hys cat=s catt ered  y-directed  magnetic  field 
hzscat-scattered  z-directed  magnetic  field 
id=material  type  array  used  in  reading  the  mesh  file 
idl=array  for^pecifying  the  material  type  at  the  x  directed 

electric  field  location  , 

id2=array  for  specifying  the  material  type  at  the  y-directed 

electric  field  location  . 

id3=array  for  specifying  the  material  type  at  the  z-directed 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


id4_array1"for^3pecifying1the  aaterial  type  at  the  x-directed 

^Srfor^if’ySrrhe  serial  type  at  the  y-directed 
tde-SSrfor^fyS^e  material  type  at  the  x-directed 

magnetic  field  location  conductivity  values  for  materials 

^TcL SSS  “  tor'Le  material  types 

in  the  x  direction 
nyl=number  of  cells  m  the  y  direction 

sigma*array°containing  ^ctr^condSctivity  valnes  tor  materials 

time=absolute  time  variable 
xc=x  coordinate  of  the  problem  space  center 
yc=y  coordinate  of  the  problem  space  center 
zc=z  coordinate  of  the  problem  space  center 


************ 


c 

c 

c 


Now  do  variable  typing 

real  exs  cat ,  ey s  cat , e  z  s  cat , hxs  cat , .  hy s cat , h  z  s cat 
real  delt, dtinv, time, xc, yc, zc, delto2 
INTEGER  n 

INTEGER  nxl,nyl,nzl,id 
L0GICAL*1  idl,  id2,  id3, id4, id5, id6 

REAL^toedx^dtoedy ,  dtoedz ,  dtomdx,  dtomdy ,  dtomdz ,  eold^ 

$dhdx,  dhdy,  dhdz,  dedx,  dedy,  dedz,  einc,  ddtein,  hinc,  ddthm,  ho 
REAL  eps,mu,  sigma, msigma 
COMMON/ ID / id ( 0 : 6 ) 

cSoN/IDSH/idHO :nx,  0 :ny,  0 :nz) ,  id2  ^^'^J'.^O-ny  0  -nz) , 
$id3  (0 :nx,  0 :ny,  0  :nz) ,  id4  (0:nx,  0 :ny,  0  :nz) ,  id5  (0 .nx,  0 .ny,  O.nz) , 

^  COMMON /F IELDS / exs  cat (0 :nx, 0 :ny, 0 :nz) , eyscat (0 :nx,  0 :ny, 0 :n»  , 

$ezscat<0:nx,0:ny,0:nz),hxscat(0:nx,0:ny,0:nz  , 

$hyscat (0 :nx,  0:ny, 0:nz) ,hzscat (0:nx, 0:ny, 0:nz) 

COMMON/ T IMES /delt, dtinv, time,  n,  delto2 
COMMON/GRID/xc, yc, zc 

COMMON / UPDATE /dt oedx dtoedy ,  dtoedz,  dtomdx, 

Seold  ( 0  -.maxmat ) ,  dhdx  ( 0  :maxmat ) ,  dhdy  ( 0  : maxmat ) ,  dhdz  (0  .maxma  ) , 
Sdedx  ( 0  *  maxmat ) ,  dedy  ( 0 :  maxmat ) ,  dedz  ( 0 :  maxmat ) ,  einc  ( 0 :  ' 

Sddtein  (Ck  maxmat ) ,  hinc  ( 0  :maxmat ) ,  ddthin  ( 0 :  maxmat ) , ho Id <  0 :  maxmat ) 
*  COMMON  /  MATER/  ep  s  (0  -.maxmat) ,  mu  (0  :maxmat) ,  sigma  (0 :  maxmat) , 

$msigma (0 : maxmat) 
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C234567 

SUBROUTINE  USRDEF 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

★  ★  ★ 


INCLUDE  'main.h' 


This  subroutine  is  where  the  user  puts  all  his/her 
defined  quantities  such  as  material  parameters  and  point 
and  slice  sensor  locations  and  types. 


Define  material  parameters  here.  As  an  example,  for 
material  type  2,  the  user  must  define  eps(2),  mu (2), 
sigma (2)  and  msigma(2) . 

eps=the  permittivity  of  the  material 

mu = the  permeability  of  the  material 

sigma =the  electric  conductivity  of  the  material 

msiama=the  magnetic  conductivity  of  the  materia 


eps (1)= (3 . 6855e4) *epsO 
mu  (1)  =muO 
sigma  (1) =3 . 96e7 
msigma  (1)  =0 . 0 


Define  point  sensors  here.  To  define  a  point  sensor,  the 
user  must  define  the  following  quantities . 

ipt, jpt, kpt,ptsamp,ptinc 

and  these  are  described  below.  (See  subroutine  DFSENS  for 
default  values  of  the  point  sensor  variables) . 

ipt=cell  number  location  of  point  sensor  in  x  direction  (i) 

jpt=cell  number  location  of  point  sensor  in  y  direction  (]) 

kpt=cell  number  location  of  point  sensor  in  z  direction  (k) 

ptsamp=field  quantity  to  be  sampled 

ptinc=time  increment  for  sampling  field 

pton=time  step  to  turn  on  point  sensor 

ptoff=time  step  to  turn  off  point  sensor 

For  sampling  field  quantities,  the  values  for  ptsamp  are 
as  follows : 

ptsamp=l  for  sampling  scattered  Ex  field 
ptsamp=2  for  sampling  scattered  Ey  field 
ptsamp=3  for  sampling  scattered  Ez  field 
ptsamp=4  for  sampling  scattered  Hx  field 
ptsamp=5  for  sampling  scattered  Hy  field 
ptsamp=6  for  sampling  scattered  Hz  field 

♦♦These  sensors  have  not  been  tested*************** 


ptsamp=7  for  sampling  x-directed  conduction  current 
ptsamp=8  for  sampling  y-directed  conduction  current 
ptsamp=9  for  sampling  z-directed  conduction  current 
ptsamp=10  for  sampling  x-directed  displacement  current 
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c 

c 


.  _ ,  ,  fnr  camoiina  y-directed  displacement  current 

ptsamp“12  for  sampling  i-directed  displacement  current 

. . . . . — ”*:;::**** 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ptsamp=13 

ptsamp=14 

ptsamp=15 

ptsamp=16 

ptsamp=l’7 

ptsamp=18 

ptsamp=19 

ptsamp=20 

ptsamp=21 

ptsamp=22 

pt samp— 23 

pt samp-2 4 

ptsamp=25 

ptsamp=26 

ptsamp=27 

ptsamp=28 

ptsamp=29 

ptsamp=30 

ptsamp=31 

ptsamp=32 

pt  samp=33 


for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 
for  sampling 


x-directed  total  current  (lx) 
y-directed  total  current  (Iy) 

2 -directed  total  current  (Iz) 

total  Ex  field 

total  Ey  field 

total  Ez  field 

total  Hx  field 

total  Hy  field 

total  Hz  field 

incident  Ex  field 

incident  Ey  field 

incident  Ez  field 

incident  Hx  field 

incident  Hy  field 

incident  Hz  field 

x-directed  total  scattered  current  (lx) 
y— directed  total  scattered  current  (Iy) 
z-directed  total  scattered  current  (Iz) 
x-directed  total  incident  current  (lx) 
y-directed  total  incident  current  (Iy) 
z-directed  total  incident  current  (Iz) 


Note-  the  variable  ptinc  permits  you  to  sample  a  field 
auantitv  at  a  variable  time  step  increment.  For  example, 
Svoionlv  need  to  sample  a  particular  field  quantity  every 
W  ^e  sJeps!  then  sSTptinc-lO.  For  sampling  every  time 
step,  ptinc=l  (this  is  the  default) . 

The  variables  pton  and  ptoff  tell  at  what  time  step  to  turn 
on  and  off  the  point  source  sampling. 

After  defining  the  above  variables,  to  set  the  point  sensor, 
issue  acali  to  subroutine  PTSNSR  and  pass  the  sensor  number 
the  ar^en?  to  the  subroutine.  *n  enable  is  shown  below: 

ipt~10 

jpt=10 

kpt=10 

ptsamp=13 

ptinc=l 

pton=l 

ptoff=tsteps 

CALL  PTSNSR (1) 

ipt=25 

jpt=25 

kpt=25 

ptsamp=l 

ptinc=l 

pton=l 

ptoff=tsteps 

CALL  PTSNSR (1) 


c 

c - 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Define  slice  sensors  here.  To  define  a  slice  sensor,  the 
user  must  define  the  following  quantities: 

sltype,  slloc,  imin,  imax,  jmin,  jmax,  slsamp,  slinc 

and  these  are  described  below.  (See  subroutine  DFSENS  for 
default  values  of  the  slice  sensor  variables) . 


slplan-the  slice  plane  type 

slloc=the  slice  plane  location  (in  the  3rd  dimension) 
imin=the  minimum  cell  number  in  the  "x"  direction 

imax-the  maximum  cell  number  in  the  "x"  direction 

jmin=the  minimum  cell  number  in  the  "y"  direction 

jmax=the  maximum  cell  number  in  the  "y"  direction 

slsamp=the  field  quantity  being  sampled 
slinc=the  time  step  increment  for  multiple  slice  saves 


The  slice  plane  type  is  defined  as  follows: 

slplan=l  for  an  plane  parallel  to  the  xy  plane 
slplan=2  for  a  plane  parallel  to  the  xz  plane 
slplan=3  for  a  plane  parallel  to  the  yz  plane 

The  slice  plane  location  in  the  3rd  dimension  is 
specified  by  slloc.  As  an  example,  if  slplan=l  then 
slloc=10  would  define  a  plane  parallel  to  the  xy  plane 
at  location  k=10  (in  the  z  direction) . 

The  minimum  and  maximum  cell  numbers  to  sample  the 
field  quantity  over  the  defined  plane  are  specified  by 
imin,  imax,  jmin  and  jmax.  As  an  example,  for  slplan— 2, 
these  variables  may  be  defined  as: 

imin=10 
imax- 20 
jmin=10 
jmax=20 

This  would  sample  the  field  quantity  from  cell  numbers 
10 — >20  in  the  z  direction  (specified  by  imin  and  imax) 
and  from  cell  numbers  10 — >20  in  the  x  direction  (specified  by 
jmin  and  jmax) .  when  defining  imin,  etc.,  always  think  in  terms 
of  a  right-handed  coordinate  system,  where  the  third  axis  is  pointing 
out  of  the  screen. 

y  (jmin, jmax) 

slplan-1:  A  slplan=2: 


| - >  x  (imin,  imax) 

/ 

/ 

z  /  y 


x  (jmin, jmax) 

A 

I 

I 

I 

I 

| - >  z  (imin,  imax) 

/ 

/ 

/ 


z  (jmin,  jmax) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


slplan=3 : 


I - >  y  (imin,  imax) 

/ 

/ 

x  / 

In  order  to  define  slsamp  correctly,  please  see  the  above  comments 
regarding  ptsamp.  The  correct  values  for  slsamp  will  be  the  same  as 

those  for  ptsamp. 

The  variable  slinc  permits  you  to  save  the  slice  data  only  once  or 
at  particular  time  step  increments. 

slinc-0  to  save  the  slice  data  only  once 
slinc=10  to  save  the  slice  data  every  10  time  steps 

The  variables  slon  and  sloff  define  the  time  step  to  turn  the  slice 
saving  on  and/or  off  (sloff  is  ignored  for  saving  only  once,  but 
slon  MUST  be  defined) . 

An  example  definition  is  given  below: 

This  slice  sensors  is  defined  as  an  xy  plane  located  at  nz/2+1, 
to  sample  over  the  entire  plane  (i=l  to  nx  and  j=l  to  ny), 
and  to  sample  x-directed  electric  field  at  time  step  100. 

slplan=l 

slloc=nz/2+l 

imin=l 

imax=ny 

jmin=l 

jmax=nx 

slsamp=l 

slinc=0 

slon=100 

sloff=tsteps 

CALL  SLSNSR(l) 

sip lan- 1 

slloc=nz/2+l 

imin-1 

imax=nx 

jmin=25 

jmax=25 

slsamp=2 

slinc=0 

slon=750 

sloff-750 
CALL  SLSNSR (1) 

RETURN 

END 
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C234567 

c 

SUBROUTINE  STLIAO 
C 

INCLUDE  'main.h' 
c 

INTEGER  fact ( 0 : order ) , s ign 
INTEGER  i, j,l, ioff 

REAL* 8  binom(0 : order) , sx, sy, sz, tx (0 :2*order+l, 0 : order) , 
$ty (0:2 *order+l , 0 :order) , tz (0 :2*order+l,  0 : order) 
c 

c  This  subroutine  initializes  the  Liao  ORBC 
c 

★  +  ★★★*★★***★  +  *★★★  +  *★★★★★**★★******  *★★★***★**★*★★★★ 
c 

c  Local  variable  dictionary 

c 

c  binom=binomial  coefficient  used  in  Liao  ORBC 
c  fact=array  for  computing  factorials 

c  i=loop  counter  over  spatial  indices 

c  ioff=offset  variable  used  to  determine  1 

c  j=loop  counter  over  order  number 

c  1= index  variable  into  interpolation  matrix  T 

c  m=loop  counter  over  time  steps  for  filling  the 
c  back  time  step  array 

c  sign=variable  used  to  evaluate  a  (-l)**(n+l)  type 
c  of  term 

c  sx=Courant  number  based  upon  delx 

c  sy=Courant  number  based  upon  dely 

c  sz=Courant  number  based  upon  delz 

c  tx=interpolation  matrix  T  based  upon  sx 

c  ty=interpolation  matrix  T  based  upon  sy 

c  tz=interpolation  matrix  T  based  upon  sz 

c 

c 

c  ■  Zero  the  interpolation  matrix  and  initialize 
c  the  factorial  array, 

c 

fact (0)=1 
DO  30  j-1,  order 

fact (j)=f act (j-1) *j 
DO  20  i=l, 2* j+1 
tx(i,j)=0.0 
ty  (i,  j)*=0.0 
tz (i, j) =0 . 0 
bcx (i, j)=0.0 
bey  (i,  j)**0.0 

bcz(i,j)=0.0 

20  CONTINUE 
30  CONTINUE 
c 

c  Compute  the  Courant  numbers 
c 

sx=c*delt/delx 

sy=c*delt/dely 

sz=c*delt/delz 

c 
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Fill  in  the  (1,1),  (2,1)  and  (3,1)  interpolation 

matrix  terms 

tx(l,l)=0.5DOO* (2 . ODOO*0 . 9925-sx) * (1.0-sx) 

tx (2, 1) =sx* (2 . ODOO-sx) 

tx (3, l)=0.5D00*sx* (sx-l.ODOO) 

ty (1, 1)=0.5D00* (2 . 0D0O*0 . 9925-sy) * (l.ODOO-sy) 

ty (2, 1) =sy* (2 . ODOO-sy) 

ty (3, l)=0.5D00*sy* (sy-l.ODOO) 

tz (1,1) =0.5* (2 . 0D00*0 . 9925-sz) * (l.ODOO-sz) 

tz(2,l)=sz*(2. ODOO— sz) 

tz  (3, 1) =0 . 5D00*sz*  (sz-l.ODOO) 

Finish  filling  in  the  interpolation  matrix 


ioff=2*order-2 
DO  60  j=2, order 
DO  50  i=l, 2* j+1 

DO  40  l=max (1, i-ioff) ,min(i,  3) 

tx (i, j)=tx (i, j)+tx  (i-1+1, j-1) *tx(l, 1) 
ty (i, j)=ty (i, j)+ty  (i-1+1, j-1) *ty (1, 1) 
tz (i,  j)=tz (i, j)+tz (i-1+1, j-1) *tz (1, 1) 

CONTINUE 

50  CONTINUE 

CONTINUE 

Compute  the  binomial  and  sign  terms 
DO  80  j=l, order 

binom(j)=REAL (fact (order) / (fact (order-j) *fact ( j) ) ) 
sign= (-1) ** ( j+1) 

DO  70  i=l,2*j+l 

Now  compute  the  constant  multiplier  terms 

bcx(i, j)=REAL(sign) *binom( j) *tx (i,  j) 
bey (i,  j)=REAL(sign) *binom(j) *ty (i,  j) 
bez (i,  j ) “REAL (sign) *binom ( j ) *tz (i,  j ) 

CONTINUE 

CONTINUE 

Close  the  diagnostics  file 

CLOSE  (UNIT=10) 

RETURN 

END 


^23456Jhis  file  contains  all  of  the  source  functions  for  the 
c  source  pulse  type. 


c 

c 

c 


IF  (gauss)  THEN 

Gaussian  pulse  type 


source=exp {- ( (tprime-tof f ) *tauOi) **2) 
ELSEIF  (banlim)  THEN 


c 

c 

c 

c 


Bandlimited  pulse  type 


source=exp (- ( (tprime-tof f ) *tauOi) **2) *sin (wO* (tprime-tof f) ) 
source=cos (wO* (tprime— toff ) ) * 

+  sin (wup* (tprime-tof f) ) / (wup* (tprime-tof f) ) 

ELSEIF  (hypsec)  THEN 


c 

c 

c 


Hyperbolic  secant  pulse  type 


source=l . 0/ (0 . 5* (exp (- (tprime-tof f) *tau0i) + 
$exp ( (tprime-tof f) *tau0i) ) ) 

ELSEIF  (rsine)  THEN 


c 

c 

c 


Ramped  sinusoid 


source= (1 . 0-exp (- ( (tprime-tof f) *tau0i) **2) ) *sin (wO* (tprime- 
$tof f ) ) 

ELSEIF  (step)  THEN 


c 

c  .  Unit  step 

C  source=l . 0-exp (- ( (tprime-tof f) *tau0i) **2) 

END  IF 
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c  setup . h 

Hs: 

Sg  ^thfKlef rearing  edification  to  specify  a 
c  new  problem. 


c 

c 

c***< 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


r  ★  ■*•  **  +  * 


Variable  definitions  (alphabetical  order) 

ampl=the  amplitude  of  the  point  source  or  plane  wave 

ban  1  im=  f la^us ed° t o°  s  e  le  ct  the  bandlimited  time  domain 

delx-thencelinsi2e  in  the  x  direction  (in  meters) 
delv=the  cell  size  in  the  y  direction  (in  meters  . 
j  __i  i  ci  to  in  the  z  direction  (in  meters), 

delz— the  cell  si  ,  ~~  ^  transformation 

SSSS  used  to  run” only  free  space  within  the  problem 

tspecf|rused  sP-ifyin^cident^itation  £*£ 

SES2,’ Tsed So  Ie!ect  the  hyperbolic  secant  time  domain 

maxmat=the  maximum  number  of  materials  to  be  defined 
mmax=the  maximum  number  of  time  bins  for  the  far  field 
vector  potential  arrays  «  c?_nir.1  i  nrr 

nrfld-flag  used  to  turn  on/off  near  field  data  sampling 

domain  . .  ^ - 

TySe  number  S  SSI  £  E  Y  So  1 

^o^fliaTStfr  25i£TS o^dary  Condition 

p  plane  wave  source  (in  degrees  measured  from  the  x  axis) . 

sessss  IS  sss  - 

sa-' ™ st 

r-i  <?p=flaa  used  for  specifying  source  pulse  by  rise  time 
rsine=flag  used  to  select  the  ramped  sinusoid  time  domain 
function 

step=unit  step  function 

theta=far  field  observation  point  theta  angle 

— d  from  ths 

^eS^SiSSnriSldSr^Srin  time 
tsteps-total  number  of  time  steps  desired  for  execution. 

Note:  plane  waves  are  propagated  at  the  phiin  and  thin  angles 
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c 

c* 

c 

c 

c 


towards  the  origin 


c 

c 

c 


c 

c 

c 


Variable  type  specifications 
INTEGER  nx,ny,nz 

INTEGER  t steps, mmax 

$ LOG I CAL *1  rdmesh, f fldon, nrfld, freesp,pntsrc 
INTEGER  npoint,nslice 
INTEGER  order, maxmat 
REAL  theta, phi 

PARAMETER  (nx=50, ny=50, nz=50) 

Reset  tsteps  after  first  run 
PARAMETER  (tsteps=1000) 

PARAMETER  (delx=0 . 01, dely-0 . 01, delz  0.01) 

PARAMETER  (thin=22 . 5,phiin=22 . 5) 

PARAMETER  (thpol-0 . 0, anpl-1 . 0) 

j^ise  =  false  could  cause  problem 

PARAMETER  (plwave-true, pntsrc=l-plwave, tspec=false, 

$fspec=l-tspec,  rise=false,gauss=true,banlim=false,hypsec-false, 

nrfld-£alse,  ££ldo„-tme,  £reesp-£alae> 

PARAMETER  (order=2) 

PARAMETER  (npoint=l, nslice=l) 

PARAMETER  (maxmat=2)  . 

PARAMETER  (theta-0 . 0, phi-0 . 0, anax-1 0000 000) 
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C234567 
c 


c 

c 

c 

c 


SUBROUTINE  SETUP 

INCLUDE  'main.h' 

INTEGER  m, is 
CHARACTER* 5 5  typtxt 

variables  and  writes  a  diagnostics 


c 

c 

c 

c 

c 

c 

c 

c 

c 


Local  variable  dictionary 


is=loop  counter  for  writing  out  point  and/or  slice  sensor 

information  .  ,  tvoes  for  setting  constant 

m=loop  counter  over  material  types 

point  and/or  slice  sensors 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


Open  the  diagnostics  file 

OPEN  (UNIT=10, FILE=' info3d.dat' , STATUS=' UNKNOWN' ) 
Compute  the  center  coordinates 

xc=0.5*nxl*delx 

yc=0.5*nyl*dely 

zc=0.5*nzl*delz 

Compute  the  time  step  and  its  inverse. 

delt=l . 0/ (c*SQRT (1 .0/ (delx*delx) +1 . 0/ (dely*dely) + 
$1.0/ (delz*delz) ) ) 

delt=0.01*delt 

delto2=0 . 5*delt 
dtinv=l . 0/delt 

Compute  cosine  and  sines  of  incidence  angles 

IF  ( (abs (thin) .EQ.90.) .OR. (abs(thin) .EQ.270.) )  THEN 
costh“0 . 0 

ELSE IF (thin .EQ -  0 . )  THEN 
costh=l . 0 

ELSEIF (abs (thin) .EQ . 180 . )  THEN 

costh=-1.0 

ELSE 

costh=COS (degrad*thin) 

I^aabs  (thin)  .EQ.0.)  .OR.  (abs(thin)  .EQ.180.))  THEN 

ELSEIF ( (thin. EQ.90.) .OR. ( thin. EQ. -270 . ) )  THEN 
sinth=l . 0 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


ELSEIF ( (thin. EQ. 270 . ) .OR. (thin. EQ. -90.) ) 

sinth=-l . 0 
ELSE 

sinth=SIN  (degrad*thin) 

IF0  uabs (phiin) .EQ. 90 . ) .OR. (abs (phiin) .EQ.270 . ) )  THEN 
cosphi=0 . 0 

ELSEIF (phiin. EQ. 0 . )  THEN 
cosphi=l . 0 

ELSEIF (abs (phiin) .EQ . 180 . )  THEN 
cosphi=-l . 0 

ELSE  . . 

cosphi=COS (degrad*phiin) 

lE^Uabs  (phiin)  .EQ.O.)  .OR.  (abs (phiin)  .EQ.180.))  THEN 
ELSeS1!  (Phiin  .EQ .  90 . )  .OR.  (phiin  .EQ  .-270 . ) )  THEN 
ElffiSupmn.EQ.270.)  .OR.  (phiin. EQ. -90. ) )  THEN 

sinphi=-1.0 

ELSE 

sinphi=SIN  <degrad*phnn) 

END  IF 

Compute  amount  of  phi-polarization  based  upon  theta- 
polarization 


phipol=SQRT (1 . 0-thpol*thpol) 

Compute  amplitude  of  incident  plane  wave  vector  in 
each  direction 


eamplx=ampl*(thpol*costh*cosphi-phipol*sinphi) 

earrp ly=ampl *  ( thpo  1  *  co s th*  s  inphi+phipo  1  *  co sphi ) 
eairtDlz=ampl*  (— thpol*sinth) 

hamplx=anpl/eta0* (phipol*costh*cosphi+thpol*sinphi) 
hamply=ampl /etaO  * (phipol *  costh*  sinphi-thpo 1 *  co  sphi ) 
hamplz*aicpl/etaO*  (— phipol*sinth) 

samplx=eamply*hanplz-eamplz*hamply 

sanply=eamplz*hamplx-eanplx*hanplz 

samplz=eaiTplx*hamply-eamply*hamplx 

Compute  direction  cosines  of  incident  wave  vector 


cosa=-co  sphi *  s inth 
cosb=-s inphi *  s inth 
cosg=-costh 
dxcosa=delx*cosa 
dycosb=dely*cosb 

dz  co  sg=de 1 z  *  co  sg 

Compute  time  offset  for  incident  plane  wave  propagation 
into  computational  space. 


tdelay=0 . 0 
IF  (cosa.LT.0.) 
IF  (cosb.LT.0.) 
IF  (COsg.LT.0.) 


tdelay=tdelay-cosa*nxl*delx*cinv 

tdelay=tdelay-cosb*nyl*dely*cinv 

tdelay=tdelay-cosg*nzl*delz*cinv 
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c 

c 

c 

c 


c. 

c 

c 

c 

c 


c 

c 


c 

c 

c 


Set  up  the  defaults,  source  pulse  information  and 
user  definitions 

CALL  DEFLTS 

write  (*,*)  ' finished  defaults 
CALL  USRDEF 

write  (*,*)  'finished  userdefs 
CALL  PULSE 

write  (*,*)  '  finished  pulse 
initialize  update  equation  mulitpliers 


Free  space  multipliers 


first 


dtoedx=delt/ (epsOMelx) 
dtoedy=delt/ (epsO*dely) 
dtoedz=delt/ (epsOMelz) 
dtomdx=delt/  (muO*delx) 
dtomdy=delt/ (muO*dely) 
dtomdz=delt/ (muO*delz) 


Now  lossy  dielectric  and  lossy  magnetic  multipliers 

DO  10  m=2 , maxmat  ....... 

eold  (m)  -eps  (m)  /  (eps  (m)  +sigma  (m)  Melt > 
einc  (m)  =sigma  (m)  *delt/  (eps  (m)  +sigma  (m)  delt) 

ddteln(m)=Slt*  (eps  (m)-epsO)  /  (eps(m)+sigma(m)  delt) 

dhdx  (m)  -delt  /  ( (eps  (m)  +sigma  m  delt  delx 
dhdy (m) -delt/ ( (eps (m) +sigma  m)  delt) dely) 

dhdz (m) -delt/ ( (eps (m)+sigma(m)  delt)  del 

hold (m)  =mu  (m)  /  (mu  (m)  +msigma  (m)  Melt) 

hinc  (m)  -msigma  (m)  Melt/  (mu  (m)  +msigma  <m)  delt) 

ddthin  (m) -delt*  (mu  (m) -muO)  /  (mu (ml  M  <*•“> 

dedx  (m)  -delt/  ( (mu (m)  +msigma  m  Melt  delx 

dedy  (m)  -delt  /  ( (mu  (m)  +msigma  a  Melt  dely 

dedz  (m)  -delt/  ( (mu  (m)  +msigma  (m)  Melt)  delz) 

10  CONTINUE 

Write  information  file  now 

C234567 8 9012345 67 8 901234 5 67 8 90 12345 678 9012345678901234567 8901234567 8 9012 


c 

c 

c 


Write  grid  information  first 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 


,  Grid  information' 


f  r 

r  ' 

/  f 


Problem  space  size' 


'Nx  =' ,nxl, '  cells  in  the  x  direction., 

'Ny  =',nyl,'  cells  in  the  y  direction., 

'Nz  =' , nzl, '  cells  in  the  z  direction. 

I  9 

,  Cell  size' 

'Delx  =',delx,'  meters  in  the  x  direction., 
'Dely  =',dely, '  meters  in  the  y  direction. 
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c 

c 

c 


c 

c 

c 

c 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

Write 


(10,*)  'Delz  «■' , delz, '  meters  in  the  z  direction.' 
\  Time  step' 

(10,*) 

_ _ _  information  if  plane  wave 


incident  plane  wave  information' 


IF  (plwave )  THEN 
WRITE  (10,*) 

S  <lo',*)  ;  Mount  of 

WRITE  (10,*)  '  Amount  of  phi  polarization  ,P  v 

WRITE  (10,*)  annlp  ='  thin, '  degrees . ' 

WRITE  (10,*)  'Theta  mergence  angie,  ,thin,  ^ 

WRITE  (10,*)  'Phi  incidence  angle  ,pnnn, 

SI  K  :s»  a  sass  essarsu. 

ms  (10.-)  ' Amplitude  of  incident  Ey  component  -•.eemply. 
»ra  (10,*)  'Amplitude  of  incident  Ez  component  -'.eamplz, 
mm  (10.*)  'Amplitude  of  incident  Hx  component  -.henplx, 
mm  (10.*)  'Amplitude  of  incident  By  component  -'.hamply, 
$'  nn.*>  'Amplitude  of  incident  Hz  component  -'.hamplz, 


$'  A/m.' 

WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
$'  W/m**2 . ' 

WRITE  (10,*) 
$'  W/m**2.' 

WRITE  (10,*) 
$'  W/m**2 . ' 

WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
ELSE 


'Poynting  Vector:' 

' Amplitude  of  incident  Sx  component  =',samplx, 
'  Amplitude  of  incident  Sy  component  -' ,  samply, 
'Amplitude  of  incident  Sz  component  =',samplz, 

' Time  delay  «' ,tdelay*1.0el2, '  picoseconds.' 


indicate  plane  wave  is  turned  off  and  write 
point  source  information 


$' 


WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 


V  * 

'Plane  wave  is  turned  off. 


,  • 

'Point  source  information:' 


9  9 

'Feed  type  is 


',fdtype,'  directed  electric' , 


field. ' 

WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 


' i  location  =' , iptsrc 
'  j  location  =' , jptsrc 
'k  location  =',kptsrc 
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9  9 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


WRITE  (10,*) 

END  IF 

Now  write  information  pertaining  to  the  source  type 

write  do  *>  ,***—***********• ****************;*—****' 

SSte  (lo'.->  '  source 

WRITE  (10,*)  '  ' 

IF  (gauss)  THEN  , 

WRITE  (10,*)  'Pulse  type  is  Gaussian. 

ELSEIF  (banlim)  THEN  ...  .  , 

WRITE  (10,*)  'Pulse  type  is  bandlimited  pulse. 

ELSEIF  (hypsec)  THEN  ■  .  .  , 

WRITE  (10,*)  'Pulse  type  is  Hyperbolic  secant. 

ELSEIF  (rsine)  THEN  , 

WRITE  (10,*)  'Pulse  type  is  ramped  sine. 

ELSEIF  (Step)  THEN  , 

WRITE  (10,*)  'Pulse  type  is  unit  step. 

ELWRITE  (10,*)  'Error!  No  incident  plane  wave  time  domain' 
S  (10,*)  'function  is  specified.  Please  check  the 
WRITE  (10,*)  '"setup. h"  file.  Execution  halted. 

STOP 
END  IF 

IF  (rsine)  THEN 


Ramped  sinusoid  source  information 

WRITE  (10,*)  'Rise  time  =',trise,'  seconds.  , 
WRITE  (10,*)  'Rise  time  =',nrise,'  time  steps. 
WRITE  (10,*)  'Frequency  =',f0,'  Hz.' 

WRITE  (10,*)  'Period  =',1.0/f0,'  seconds. 

WRITE  (10,*)  'Time  steps  per  period  =',nper 
GO  TO  100 

ELSEIF  (Step)  THEN 


Pulse  information 


WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
WRITE  (10,*) 
ELSE 


'Rise  time  =',trise,'  seconds. 

'Rise  time  =',nrise,'  time  steps.'  , 

'Half- power  pulse  width  =',thp,'  seconds.  , 
'Half-power  pulse  width  =' ,nhp, '  time, steps. 

' HWHM  pulse  width  =',tfwhm, '  seconds.'  , 
'HWHM  pulse  width  =',nfwhm, '  time, steps. 

'1/e  pulse  width  =',te,'  seconds.  , 

'1/e  pulse  width  =',nte,'  time  steps.' 


Pulse  information 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 

(10,*) 


'Rise  time  =',trise,'  seconds.  , 

'Rise  time  =',nrise,'  time  steps.'  # 

' Ha If -power  pulse  width  =',thp, '  seconds.  , 
'Half-power  pulse  width  «',nhp, '  time, steps. 
'FWHM  pulse  width  =',tfwhm, '  seconds.'  , 
'FWHM  pulse  width  =',nfwhm, '  time, steps. 

'1/e  pulse  width  =',te, '  seconds.' 

'1/e  pulse  width  =',nte,'  time  steps.' 
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c 

c 

c 


100 


c 

c 

c 


20 


c 

c 

c 


WRITE  (10,*)  'Truncation  pulse  width  J'^trun,, 

WRITE  (10,*)  'Truncation  pulse  width  -  ,ntrun, 

WRITE  (10,*)  'Time  offset  =',toff,'  seconds. 
write  (10,*)  'Time  offset  =',ntoff,'  time  steps. 

IF  (gauss)  THEN 

IF  (tspec)  THEN  .  _,  -ftn  ,  Hz/ 

WRITE  (10,*)  '80  dB  frequency  limit  -  ,f80, 

ELWRITE  (10,*)  'Attenuation  at  upper  frequency  limit  -  , 

$gdb, '  dB.' 

WRITE  (10,*)  'Upper  frequency  limit  -  , fup,  az. 

ELSE IF  (banlim)  THEN 

IF  (tspec)  THEN  _,  -pn  ,  Hz/ 

WRITE  (10,*)  '80  dB  frequency  limit  -  ,f80,  Hz 

EIWRITE  (10,*)  'Attenuation  at  upper  frequency  limit  =' , 
$bldb, '  dB.' 

WRITE  (10,*)  'Upper  frequency  limit  -  , fup,  hz. 

END  IF 
END  IF 

Now  write  point  and/or  slice  sensor  information 

WRITE  (10  *)  '*—***********—*************************' 
Site  (lo',*)  '  Sensor  information' 

WRITE  (10,*)  '  ' 

Point  sensor  information 

WRITE  (10,*)  'Number  of  point  sensors  selected  =  ',npoint 
DO  20  is«l,npoint 

WRITE  (10,*)  '  '  . 

WRITE  (10,*)  'Point  sensor  #  ,is 
WRITE  (10,*)  'i  location  -  ' ,ptsens (is, l) 

WRITE  (10,*)  'j  location  =  ' ,ptsens (is,  2) 

WRITE  (10,*)  'k  location  -  ' ,ptsens (is, 3) 

WRITE  (10,*)  'Sensor  type  =  ' ,ptsens (is, 4) 

CALL  SAMTYP (ptsens (is, 4) , typtxt) 

WRITE  (10,*)  typtxt  Trt-A«ia(ia  5) 

WRITE  (10,*)  'Time  step  saving  increment  -  , ptsens (is, 0) 

WRITE  (10,*)  'Turn  on  time  step  =  ',ptsens(is,  ) 

WRITE  (10,*)  'Turn  off  time  step  =  ', ptsens (is, 

CONTINUE 

Slice  sensor  information 

WRITE  (iS;*)  'Number  of  slice  sensors  selected  =  ',nslice 

DO  30  is=l,nslice 
slplan=slsens (is,  1) 

WRITE  (10,*)  '  '  . 

WRITE  (10,*)  'Slice  sensor  #  ,is 
WRITE  (10,*)  'Slice  plane  type  -  ,slplan 
IF  (slplan.EQ.l)  THEN 

mire  (10,*)  -Slice  plane  is  parallel  to  xy  Plane. 

WRITE  (10,*)  'Slice  plane  is  located  at  k  -  , slsens (is, v 
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write  (10.*)  -Slice  piece  eagles  from  i  -  • ,  elaens  (is,  3) , 

"TOira  '(10?*)S-end4from  j  -  - ,  slsens  (is.  5) , '  to  j  -  ’ . 

$slsens (is, 6) 

ELSE IF  (slplan.EQ.2)  THEN  narallel  to  xz  plane." 

WRITE  (10,*)  "Slice  plane  is  Parallel  =,  2) 

WRITE  (10,*)  "Slice  plane  ^located  at  ^  ,  slsens (is, 3) , 
WRITE  (10,*)  "Slice  plane  samples  from  k 

S'  to  k  =  ", slsens (is, 4)  r\  '  to  i  -  " » 

WRITE  (10,*)  'and  from  i  =  ,slsens(  ,  ). 

$slsens (is, 6) 

ELSEIF  (slplan.EQ.3)  THEN  parallel  to  yz  plane." 

WRITE  (10,*)  'Slice  plane  is  P  2) 

SS  IS::’,  'SSSS  i  -  -.Sl3ens<is,3,. 

s'  "wiLra  (l^T'and’from  k  -  -  .slsens (is. 5),’  to  l  ■ 

$slsens (is, 6) 

WRITE  (10,*)  "Sensor  type  =  ", slsens (is,  7) 
call  SAMTYP (slsens  (is, 7) , typtxt) 

WRITE  (10,*)  typtxt 

IFWRITE6I(lo!’*) 8'  Slice }  sensor  saved  only  once  at  time  step  ", 
$slsens (is, 9) 

“Site  (10,*>  'Time  step  saving  increment  --^slsens (is. 8) 

WRITE  (10,*)  'Turn  on  time  step  -  , slsens  i  ,  ,m 
S™  (10,*)  -Turn  off  time  step  -  slsens  (is,  10) 

END  IF 

30  . .................*********•***** . 

write  source  function  and  time  derivative  source  function 
to  data  files 

WRITE  (35,1000) 

WRITE  (35,1001) 

WRITE  (35,1002) 

WRITE  (35,1003) 

WRITE  (35,1004) 

WRITE  (36,1005) 

WRITE  (36,1006) 

WRITE  (36,1007) 

WRITE  (36,1008) 

WRITE  (36,1009) 

WRITE  (36,1010) 

DO  200  n=l, tsteps 
time= (n-1) *delt 

tprime=time 
INCLUDE  ' source.h' 

INCLUDE  'ddtsrce.h' 

WRITE  (35,*)  time*1.0E9,n,  source 
WRITE  (36,*)  time*l . 0E9, n, ddtsrc 

200  CONTINUE 
time=0 . 0 


c 

c 

c 

C 
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1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 
1009 


CLOSE  (UNIT 
CLOSE  (UNIT 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT  (Tl,' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 
FORMAT (Tl, ' 


'=35) 

# 3 This  file  contains  the  source  functi^  value' ) 

#  versus  time  and  time  steps.  The  format  of  ) 

#  the  data  file  is  as  follows:')  . 

#  Time  (ns)  Time  step  Source  function  value ^ ) 

t  This  file  contains  the  time  derivative  of ' ) 

#  the  source  function  value  versus  time  and  ) 

#  time  steps.  The  format  of  the  data  file  is  ) 

#  as  follows : ' ) 

&  TimA  (ns) 


•  j 

Timo  d/dt (Source  function 


$'  value' )  _ ' ) 

1010  FORMAT (Tl, - - - 

RETURN 

END 
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C234567 
c 


SUBROUTINE  SETCON 
INCLUDE  ' constants .h' 


c 

c 

c 

c 


This  subroutine  sets  all  the  necessary  constants 
used  throughout  the  TEMAC  code. 


pi=4 . 0  * ATAN (1.0) 
twopi=2.0*pi 

epsO=l . 0/ (36 . 0*pi) *1  - Oe-9 
mu0=4 . 0*pi*l • Oe-7 
etaO=SQRT (muO/epsO) 
c=l . 0/SQRT (eps0*mu0) 
cinv=l . 0/ c 

degrad=pi/ 180.0 

e=EXP (1.0) 
return  . 

END 
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SUBROUTINE  STCELL (istart, jstart, kstart, nxwide,  nywide, nzwide, mtype) 

INTEGER  istart, jstart, kstart, nxwide, nywide, nzwide, lend, 

$jend, kend, i, j,k 
LOGICAL* 1  mtype 

This  subroutine  sets  twelve  id?  ■ for  one ide# 

t0  nzwide-0  “hSroily^i^c^nents  will 'be  set  corresponding 
to  ^ sheet ° o ^ two-dimens ional  Yee  cells  with  zero  thickness. 


**★★★★★★***** 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
iend=ending  cell  coordinate  number  in  x  direction 
istart=starting  cell  coordinate  number  in  x  direction 
i=cell  coordinate  number  in  y  direction 
jend=ending  cell  coordinate  number  in  ydirection 
jstart=starting  cell  coordinate  number  in  y  direction 
k=cell  coordinate  number  in  z  direction 
kend=ending  cell  coordinate  number  in  zdirection 
kstart=starting  cell  coordinate  number  in  z  direction 
mtype=material  type  number 

nxwide=number  of  cells  in  x  direction  to  se 

nywide=number  of  cells  in  y  direction  to  set 

nzwide=number  of  cells  in  z  direction  to  set 


*★*★*★★★*★★****** 


iend=istart+nxwide-l 
jend= jstart +nywide-l 
kend=kstart+nzwide-l 

IF  (nxwide. EQ.O)  THEN 

Set  a  sheet  of  zero  thickness  parallel  to  yz  plane 

DO  20  k=kst art, kend 
DO  10  j- jstart, jend 
id2 (istart, j,k) -mtype 
id2 (istart, j,k+l) -mtype 
id3 (istart, j,k)=mtype 
id3 (istart, j+l,k)=mtype 
CONTINUE 
CONTINUE 

ELSEIF  (nywide .EQ.O)  THEN 

Set  a  sheet  of  zero  thickness  parallel  to  xz  plane 

DO  40  k=kstart,kend 
DO  30  i=istart, iend 
idl (i, jstart, k)=mtype 
idl (i, jstart, k+l)=mtype 
id3 (i, jstart, k) =mtype 


95 


id3 (i+1, jstart,k)=mtype 
CONTINUE 
CONTINUE 

ELSE IF  (nzwide.EQ.O)  THEN 

Set  a  sheet  of  zero  thickness  parallel  to  xy  plane 

DO  60  j=j start, jend 
DO  50  i=istart, iend 
idl (i, j, kstart)=mtype 
idl (i, j+1, kstart) =mtype 
id2 ( i , j , kstart ) =mtype 
id2  (i+1,  j, kstart) =mtype 
CONTINUE 
CONTINUE 
ELSE 

Set  a  block  of  Yee  cells  (12  components/cell) 

DO  90  k=kstart,kend 
DO  80  j= jstart, jend 
DO  70  i=istart, iend 
idl  (i, j, k)=mtype 
idl(i, j,k+l)=mtype 
idl (i, j+1, k+1) =mtype 
idl (i, j+1, k)=mtype 
id2 (i, j,k)=mtype 
id2 (i+1, j, k)=mtype 
id2 (i+1, j,k+l)=mtype 
id2(i,  j,k+l)=mtype 
id3 (i, j , k) =mtype 
id3 (i+1, j,k)=mtype 
id3 (i+1, j+l,k)=mtype 
id3 (i, j+1, k)=mtype 
CONTINUE 
CONTINUE 
CONTINUE 
END  IF 
RETURN 
END 


C234567 

c  Include  file  sensors. h 

c  This  file  contains  all  of  the  variables  used  for  defining 
c  point  or  slice  sensors. 


c  ***** 


★ 


★ 


c 

c  Variable  dictionary 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 


imin=minimum  cell  number  for  saving  slice  sensor  information 
in  the  "x"  direction 

imax=maximum  cell  number  for  saving  slice  sensor  information 
in  the  "x"  direction 


ipt=used  for  defining  i  location  of  point  or  slice  sensor 
jmin=minimum  cell  number  for  saving  slice  sensor  information 
in  the  "y"  direction 

jmax=maximum  cell  number  for  saving  slice  sensor  information 
in  the  ”y"  direction 

jpt=used  for  defining  j  location  of  point  or  slice  sensor 
kpt=used  for  defining  k  location  of  point  or  slice  sensor 
ptinc=time  step  increment  for  saving  point  sensor  data 
ptsamp=used  for  defining  point  sensor  sample  type 
ptsens^array  used  to  store  information  about  a  point  sensor 
slinc=time  step  increment  for  saving  slice  sensor  data 
slloc^location  of  slice  sensor  in  third  dimension 
slplan=used  to  define  the  slice  sensor  plane  (1,2  or  3) 
slsamp=used  for  defining  slice  sensor  sample  type 
slsens=array  used  to  store  information  about  a  slice  sensor 


c  INTEGER  ptsens, slsens, pton,ptoff, slon, sloff 

INTEGER  ptsens, slsens, ipt, jpt, kpt,ptsamp,ptinc, 

$slplan,  slloc,  imin,  imax,  jmin,  jmax,  slsamp,  slinc,pton,ptof  f , 
$slon, sloff 


COMMON/SENSR/ptsens  (0 :npoint, 0:7), slsens (0 :nslice,  0:10), 
$pton,ptoff, slon, sloff, ipt, jpt, kpt,ptsamp,ptinc, slplan, slloc, 
$imin,  imax,  jmin,  jmax,  slsamp,  slinc 
c  COMMON /SENSR2/ ipt,  jpt,  kpt, ptsamp, ptinc,  slplan,  slloc, 

c  $imin,  imax,  jmin,  jmax,  slsamp,  slinc 
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SUBROUTINE  DFSENS 

c 

INCLUDE  'main.h' 

INTEGER  is 

c 

This  subroutine  sets  the  defaults  for  the  point  and/or 

c 

c 

slice  sensors. 

c  ★*****★*****★**★**★★★★ ******** 

- 

c 

c 

Local  variable  dictionary 

c 

c 

is=loop  counter  for  defining  point  or  slice  sensors 

c  ★+***★+*★+*★*★★*****★*★★★+***** 

c 

First  set  the  defaults  for  the  point  sensors.  All  sensors 

c 

c 

are  defaulted  to  the  center  of  the  problem  space  and  will 

c 

sample  the  x-directed  electric  field  at  every  time  step. 

c 

DO  10  is=l,npoint 

ipt=nx/2+l 

jpt=ny/2+l 

kpt=nz/2+l 

ptsamp=l 

ptinc=l 

pton=l 

ptoff=tsteps 

CALL  PTSNSR(is) 

10 

CONTINUE 

c 

c 

Now  set  the  defaults  for  the  slice  sensors.  All  slice 

c 

sensors  are  defaulted  to  an  xy  plane  located  at  nz/2+1. 

c 

sample  over  the  entire  plane  (i=l  to  nx  and  j=l  to  ny). 

c 

and  will  sample  x-directed  electric  field  at  time  step  100. 

c  • 

DO  20  is=l,nslice 

slplan=l 

slloc=nz/2+l 

imin=l 

imax=nx 

jmin=l 

jmax=ny 

slsamp=l 

slinc=0 

slon=100 

sloff=tsteps 

CALL  SLSNSR (is) 

20 

CONTINUE 

RETURN 

END 

* 

c 

SUBROUTINE  PTSNSR(is) 

c 

INCLUDE  'main.h' 

INTEGER  is 

c 
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c  This  subroutine  sets  the  point  sensor 
c  array  values  corresponding  to  what  the 

c  user  has  defined, 

c 

c 

c  Local  variable  dictionary 

c 

c  is=sensor  number 

c 

c* *************★★★★★★**★★*★★*★★*★★★★★******** 
c 

if (is  .gt.  npoint)then 

write (*, *) '  ERROR  !!!!!! !  ! ' 

write (*,*) 

write(*, *) 'Point  sensor  call' ,  is, ' from  userdefs.f  is  greater 
write (*,*) 'than  npoint  in  setup. h.  Terminationg  code  run' 
stop 
endif 

ptsens (is, l)=ipt 
ptsens (is, 2)=jpt 
ptsens (is, 3) =kpt 
ptsens (is, 4)=ptsamp 
ptsens (is, 5) =ptinc 
ptsens (is, 6) -pton 
ptsens (is, 7)=ptoff 
IF (ptinc . EQ . 0 ) ptsens  ( is , 7 ) =pton 
RETURN 
END 
c 

SUBROUTINE  SLSNSR(is) 
c 

INCLUDE  'main.h' 

INTEGER  is 
c 

c  This  subroutine  sets  the  slice  sensor 
c  •  array  values  corresponding  to  what  the 
c  user  has  defined, 

c 

q* ★★★★★★★★★★★★★★★★★★★★★*★********** ★★*★★★★★★★ 

c 

c  Local  variable  dictionary 

c 

c  is=sensor  number 

c 

£********+******★**■*■*★★★★★★■*■**★+★**★★*★★*★*★* 

c 

if (is  .gt.  nslice)then 

write (*,*)'  ERROR  !!!!!!!!' 

write (*, *) 

write (*,*)' Slice  sensor  call' , is, '  from  userdefs.f  is  greater' 
write (*,*)' than  nslice  in  setup. h.  Terminationg  code  run' 
stop 
endif 

slsens (is, l)=slplan 
slsens (is, 2) =slloc 
slsens (is, 3) =imin 
slsens (is, 4)=imax 
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slsens (is, 5) = jmin 
slsens (is, 6)=jmax 
slsens (is, 7)=slsamp 
slsens (is, 8)=slinc 
slsens  (is, 9) =slon 
slsens  (is, 10)=sloff 
RETURN 
END 
c 

SUBROUTINE  SENSOR 
c 

INCLUDE  'main.h' 

INTEGER* 2  is 
INTEGER  i,  j,  k 
INTEGER  num 

CHARACTER* 14  ptf ile, slf ile 
REAL  field 
C 

c  This  subroutine  samples  and  saves  point  and/or 
c  slice  sensor  data 

c 

£*★*★★*★★****★★★**★**★**★+****+*************************** 

c 

c  Local  variable  dictionary 

c 

c  field=field  quantity  that  has  been  sampled 

c  i=cell  coordinate  number  in  x  direction 

c  is=loop  counter  over  the  number  of  point  and/or  slice 
c  sensors 

c  j=cell  coordinate  number  in  y  direction 

c  k=cell  coordinate  number  in  z  direction 

c  ptfile=file  name  for  point  sensor  data 

c  slfile^file  name  for  slice  sensor  data 

c 

Q* ★**★★★★**★★★★*★★**★**★*★★*★*★★*****************+** ★★★★*★ 

c 

c  -  Save  point  sensors 
c 

DO  10  is=l,npoint 
c 

c  Open  a  data  file  for  point  sensor  and  save  the 

c  field  data 

c 

c  Do  the  file  name  first 

c 

IF (n.GE.ptsens (is, 6) .AND.n.LE.ptsens (is, 7) .AND. 

+  (MOD ( (n-ptsens (is, 6) ) ,ptsens (is, 5) ) .EQ.O) ) THEN 

ptf ile (l:6)='ptsens' 

IF (is. It. 10) THEN 
ptf ile (7 :!)=' O' 
write (ptf ile (8: 8),'  (il)')is 
ELSE 

write  (ptfile (7:8),' (i2) ' ) is 
END  IF 

ptfile (9: 12)='  .dat' 

OPEN  (40+is, FILE=ptfile,  access=' append' ) 
if (n.eq.l)rewind  40+is 
i=ptsens (is, 1) 
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j=ptsens  (is,  2) 
k=ptsens (is, 3) 
ptsamp=ptsens  (is, 4) 

CALL  FLDSAM(i, j,k,ptsamp, field) 
num=40+is 

WRITE  (num, *)  time, field 
CLOSE (40+is) 

END  IF 
10  CONTINUE 
c 

c  Check  for  slice  sensor  data 
c 

c  Now  save  slice  sensors 

c 

DO  200  is=l,nslice 
c 

c  Check  for  slice  sensor  turn-on 

c 

c 

IF (n.GE .slsens (is, 9) .AND.n.LE.slsens (is, 10) ) THEN 
IF (slsens (is, 8) .EQ.O .OR. 

+  MOD ( (n-slsens (is, 9) ) , slsens (is, 8) ) .EQ.O) THEN 

slfile (1:2)=' si' 

IF (is. LT. 10) THEN 
slfile(3:3)='0' 
write (slfile (4:4),' (il) ' ) is 
ELSE 

write (slfile (3: 4),' (i2)')is 
END  IF 

slfile (5: 5)='-' 

DO  20  I  =  6,  14 
20  slfile (1:1)-'  ' 

IF (n. It. 10) then 

write (slfile (6: 6) , ' (il)')n 
slfile (7: 10)“' .dat' 

ELSE IF (n . It . 100) then 

write (slfile (6: 7),' (i2)')n 
slfile <8: 11)“' .dat' 

ELSE IF (n. It . 1000) then 

write(slfile(6:8),' (i3)')n 
slfile (9: 12)=' .dat' 

ELSE IF (n . It . 10000 ) then 

write (slfile  (6: 9),' (i4)')n 
slfile (10: 13)=' .dat' 

ELSE IF (n. It. 100000) then 

write (slfile (6 : 10) , '  (i5)')n 
slfile (11: 14)=' .dat' 

END  IF 

imin=slsens (is, 3) 
imax=slsens (is, 4) 
jmin=slsens (is, 5) 
jmax=slsens (is,  6) 
slsamp=slsens (is, 7) 

OPEN  (UNIT=7 0+is , FILE=slf ile, STATUS*' UNKNOWN' ) 
IF  (slsens  (is,  1)  .EQ.l)  THEN 
c 

c  xy  slice  plane 

c 
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110 

120 

c 

c 

c 


130 

140 

c 

c 

c 


150 

160 


200 

500 


k=slsens (is, 2) 

DO  120  j= jmin,  jmax 
DO  110  i=imin, imax 

CALL  FLDSAM(i, j,k, slsamp,  field) 
WRITE  (70+is, *)  i, j, field 
CONTINUE 
CONTINUE 

ELSE IF  (slsens (is, 1) .EQ.2)  THEN 

xz  slice  plane 

j=slsens (is, 2) 

DO  140  i=jmin, jmax 
DO  130  k=imin,  imax 

CALL  FLDSAM(i,  j,  k,  slsamp,  field) 
WRITE  (70+is,*)  k,i, field 
CONTINUE 
CONTINUE 

ELSEIF  (slsens (is, 1) .EQ. 3)  THEN 

yz  slice  plane 

i=slsens (is, 2) 

DO  160  k= jmin, jmax 
DO  150  j=imin, imax 

CALL  FLDSAM(i,j,k, slsamp, field) 
WRITE  (70+is,*)  j,k, field 
CONTINUE 
CONTINUE 
END  IF 

CLOSE  (UNIT=70+is) 

END  IF 
END  IF 
CONTINUE 
RETURN 
END 
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SUBROUTINE  READMS 

INCLUDE  'main.h' 

INTEGER  iarg, line, iargc, icount 

INTEGER  i,  j,k,m 

REAL  final 

CHARACTER* 30  mshfil 

LOGICAL*l  mtype 

REAL  x,y, z, radius, rtest 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 

iarg=indi cates  if  an  argument  was  typed  on  command  line 

(i.e.  if  the  mesh  file  name  was  supplied  on  the  command 

iargci^iitrinsic  function  to  get  the  number  of  arguments 
typed  on  the  command  line 
j=cell  coordinate  number  in  y  direction 

k=cell  coordinate  number  in  z  direction  . .  , 

line=loop  counter  used  for  reading  the  mesh  file  (indicates 
the  current  line  number) 

m=loop  counter  used  for  reading  id  material  types 
mshfil=mesh  file  name  to  read 

**************************************************************** 

■>  This  subroutines  "builds"  the  object  (s)  of  interest  by 

;  setting  the  material  type  id  numbers  and  then  packing  them 

'  in  bits  into  an  idtype  array.  This  subroutine  offers  the 
'  capability  to  read  a  mesh  file  generated  by  the  Anastasia 

1  mesh  generator  or  to  build  the  object  by  hand  using  hard 

;  coding  techniques.  When  reading  a  mesh  file,  the  file  must 

2  be  a  binary  file  and  must  have  the  following  form: 


All  lines:  i  j  k  idl  id2  id3  id4  id5  id6 


character* 9  DUMC 


IF  (rdmesh)  GO  TO  100 


This  section  is  where  you  would  insert  your  lines  of  code  to 
construct  a  particular  object  or  objects. 

radius= . 1 9  +  delx*.l 
xc=0 .5*nxl*delx 
yc=0 . 5*nyl*dely 
zc=0 .5*nzl*delz 
mtype=l 
DO  30  k=l,nzl 

z=(k-0.5)*delz-zc 
DO  20  j=l,nyl 

y=(j-0.5)*dely-yc 
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DO  10  i=l,nxl 

x= (i-0 .5) *delx-xc 
rtest=SQRT (x*x+y*y+z*z) 

IF  (rtest.LE. radius)  THEN 
idl(i, j,k)=mtype 
idl(i, j,k+l)=mtype 
idl(i,  j+l,k+l)=mtype 
idl(i,  j+l» k)=mtype 
id2(i,  j,k)=mtype 
id2 (i+1,  j,k)=mtype 
id2 (i+1,  j,k+l)=mtype 
id2(i,  j,k+l)=mtype 
id3(i,  j,k)=mtype 
id3 (i, j+l,k)=mtype 
id3 (i+1,  j+lf k) =mtype 
id3 (i,  j+l,k)=mtype 
END  IF 

10  CONTINUE 

20  CONTINUE 

30  CONTINUE 

OPEN  (47, FILE=' sphere. cla  ) 
REWIND  47 
DO  35  i  =  1,  29 
35  READ (47 , *) 


55 


icount  =  0 
DO  55  k=l,nz 
DO  55  j=l,ny 
DO  55  i=l,nx 

IF  ( (idl (i, j,k) .GT.O) 
$  (id3(i,  j, k) .GT.O) 


.OR. (id2 (i, j, k) .GT.O) .OR. 
)  icount  =  icount  +  1 


CONTINUE 


777 

40 

50 

60 


RITE (47 , * ) '  grid_data  ' ' icount 

RITE  (47 ,  *) 

O  60  k=l,nz 
DO  50  j=l,ny 

D°IF°  (UdlU,  j,k)  .GT.O)  .OR.  (id2(i,  j,k)  .GT.O)  .OR. 
id3 (i, j,k) .GT.O) )  WRITE  (47,777)  i, j, k, idl U,  k) , 
d2(i,  j,k),id3(i,  j,k) 

ORMAT (T2, 13, IX, 13, IX, 13, IX, II, IX, II, IX, I  ) 

CONTINUE 

CONTINUE 

'OMTTMTTE 


WRITE (47 ,  *) 

WRITE (47 , *) ' end_grid_data 
WRITE (47, *) ' end_time' 
CLOSE  (UNIT-47) 

GO  TO  2000 


100  CONTINUE 

This  section  is  used  for  reading  mesh  files 
Input  Geometry 
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iarg=iargc () 
IF  (iarg  .EQ. 
CALL  GETARG 


1)  THEN 
(iarg,  mshfil) 


ELSE 

WRITE  (*,*)  '  ' 

WRITE  (*,*)  'Enter  the  name 
mshfil  =  'missile9_a_cla 

c  READ  (5,1000)  mshfil 

1000  FORMAT  (A30) 

END  IF 

OPEN  (53, FILE=mshf il) 

REWIND  53 


of  the  mesh 


file  »' 


DO  520  line  =  1,29 
520  READ (53,*) 

READ (53, *) DUMC, final 
READ  (53,  *) 


500 

510 


DO  500  line=l, final 
READ  (53, *,Err=510) 
idl(i, j,k)=id(l) 
id2  (i,  j,k)=id(2) 
id3 (i, j,  k)=id(3) 
id4 (i, j, k)=l 
id5 (i, j, k) ~1 
id6 (i, j , k) *1 

if (mod(line,  10000) 


i,  j,k,  (id(m),m=l,3) 


.eq.  0)write (*,*)' line 


' , line, ' 


of  ' , final 


CONTINUE  . 

write (*,*)' finished  reading  mesh 

GOTO  2000  .  ... 

write (*,*) 'Error  reading  mesh  file 
write (*, *) 'Terminating  code  run. 


I  i  i  j  i  i  i  i  i  i  1 1 ! !  1 1 !  1 1 ' 


c- 


2000  RETURN 
END 
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c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE  PULSE 
INCLUDE  'main.h' 

This  subroutine  sets  up  the 
of  the  necessary  parameters 


source  pulse  function  and  all 
for  its  specification. 


First  set  up  a  Gaussian  pulse 

IF  (gauss)  THEN 
IF  (tspec)  THEN 

Time  specifications 

IF  (rise)  THEN 

tauO=trise/l . 1928343 

tau0=0 . 5*pwidth/SQRT (-LOG (ap) ) 

END  IF 

Full-width  half-maximum  pulse  width 

tfwhm=2 . 0*tau0*SQRT (-LOG (0 .5) ) 
nfwhm=NINT (tfwhm/delt) 

Half-power  pulse  width 

thp=2 . 0*tau0*SQRT (-LOG (1 . 0/SQRT (2.0))) 
nhp=NINT (thp/delt) 

1/e  pulse  width 

te=2 . 0*tauO*SQRT (—LOG (1 .0/e) ) 
nte=NINT (te/delt) 

10%-90%  rise  time 


trise=tauO*l . 1928343 
nrise=NINT (trise/delt) 

Offset  time  delay 

tof f=4 . 0417348*tau0 

ntoff=NlNT(toff/delt) 

Truncation  time  pulse  width 


ttrun=2.0*toff 
ntrun=NINT (ttrun/delt) 

Upper  frequency  limit 

fup=c/ (10 . 0*AMAX1 (delx,dely,delz) ) 

wup=twopi*fup 

80  dB  frequency  limit 
f 80= (SQRT (36.841361) /tauO) /twopi 
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ELSEIF  (fspec)  THEN 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


vmp^twopi^fup 

tau0=2 . 0/wup* 


SQRT (-LOG (10  - 


0** 


(-adb/20.0) ) ) 


Full-width  half-maximum  pulse  width 


tfwhm=2 . 0*tau0*SQRT (-LOG (0.5)) 
nfwhm=NINT  (tfwhm/ delt) 


Half-power  pulse  width 

tkp_2 . o*tauO*SQRT (-LOG (1 . 0/SQRT (2.0))) 
nhp=NINT (thp/delt) 


1/e  pulse  width 

te=2 . 0*tau0*SQRT (—LOG (1 . 0/e) ) 
nte=NINT (te/delt) 


10%-90%  rise  time 


trise=tauO*l .1928343 
nrise=NINT (trise/delt) 

Offset  time  delay 

toff =4 . 0417348*tau0 
ntof f=NINT (toff /delt) 


Truncation  time  pulse  width 


ttrun=2.0*toff 

ntrun=NINT (ttrun/delt) 

gdb=20 . 0*ALOG10 (EXP (- (tau0*wup/2 . 


0) 


END  IF 

ELSEIF  (banlim)  THEN 


**2) ) 


Bandlimited  pulse 


IF  (tspec)  THEN 

Time  specifications 

IF  (rise)  THEN 

tau0=trise/l .1928343 


EXjSE 

tau0=0 . 5*pwidth/SQRT (—LOG (ap) ) 
END  IF 


Full-width  half-maximum  pulse  width 


tfwhm=2 . 0*tau0*SQRT (-LOG (0 . 5) ) 
nfwhm=NINT (tfwhm/ delt) 


Half-power  pulse  width 

thp=2 .0*tau0*SQRT (-LOG (1. 0/SQRT (2.0) ) ) 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


nhp=NINT (thp/delt) 

1/e  pulse  width 

te=2 . 0*tauO*SQRT (-LOG (1.0/e) ) 
nte=NINT (te/delt) 

10%-90%  rise  time 
trise=tauO*l .1928343 

nrise=NINT (trise/delt) 

Offset  time  delay 

tof f=4 . 0417348*tau0 

ntof f=NINT (tof f /delt) 

Truncation  time  pulse  width 

ttrun=2 . 0*tof f 
ntrun=NINT (ttrun/delt) 


Upper  frequency  limit 

fup=c/ (io . 0*AMAX1 (delx,dely,delz) ) 
wup=twopi*fup 

f low=0 . 0 
w0=0.5*wup 


80  dB  frequency  limit 

f 80= (wO+SQRT (36 . 841361) /tauO) /twopi 
ELSEIF  (fspec)  THEN 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c  BOB 

c 

c 

c 

c 

c 

c 

c 

c 


Frequency  specification 

Center  frequency 

f 0=f low+0 . 5*bw 
w0=twopi*f 0 

Upper  frequency  limit 
fup=flow+bw 


bw  =  bandwidth  in  Hz 

f0  =  center  frequency  in  Hz 

bw  —  1 . 0e9 
fup=bw/2 . 0 

wup=twopi*fup 

f0=. 6e9 

w0=twopi*f 0 


bw=16. 0e9 
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fup=8 . Ie9 

vmp=twopi*fup 
f 0=0.0 
w0=twopi*f0 

tau0=2 . 0/wup*SQRT (-4 . 0*LOG (10 . 0** (-adb/20 . 0) ) ) 

Full-width  half-maximum  pulse  width 

tfwhm=2 .  0*tau0*SQRT (-LOG (0.5)) 
nfwhm=NINT (tfwhm/delt) 

Half-power  pulse  width 

thp=2 .0*tau0*SQRT (-LOG (1.0/SQRT (2.0) ) ) 
nhp=NINT ( thp / de It ) 

1/e  pulse  width 

te=2 . 0*tau0*SQRT (—LOG (1 .0/e) ) 
nte=NINT (te/ delt) 

10%-90%  rise  time 

trise=tauO*l . 1928343 
nrise=NINT (trise/delt) 

Offset  time  delay 

tof f=4 . 0417348*tau0 
**************************** 
toff=12.0*tau0 

**************************** 
ntof f =NINT (tof f /delt) 

Truncation  time  pulse  width 

ttrun=2 . 0*tof f 
ntrun=NINT (ttrun/delt) 

bldb=20 . 0*ALOG10 (EXP (- (tau0*wup/2 .0)  2) ) 

END  IF 

ELSEIF  (hypsec)  THEN 

Hyperbolic  secant  pulse 

Time  specifications 

xl=l . 0/ah+l . 0/ah*SQRT (1 . 0-ah*ah) 
tau0=pwidth/ (2.0*LOG(xl) ) 

Full-width  half-maximum  pulse  width 

tfwhm=2 . 0*tau0*LOG (3 .7320508) 
nfwhm=NINT (tfwhm/delt) 

Half-power  pulse  width 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


thp=2 . 0*tauO*LOG (SQRT (2 . 0) +1 • 0) 
nhp=NINT (thp/delt) 

1/e  pulse  width 

te=2 . 0*tau0*LOG (5 .2459401) 
nte=NINT (te/delt ) 

10%-90%  rise  time 

trise=2.5260775*tau0 

nrise=NINT (trise/delt) 

Truncation  time  pulse  width 

ttrun=33 . 622486*tau0 
ntrun=NINT (ttrun/delt) 

Offset  time  delay 


toff=0.5*ttrun 

ntof f =NINT (toff/ delt) 


ELSE IF  (rsine)  THEN 

Ramped  sinusoid  function 
nper=NINT (1 . 0/f 0/delt) 

nrise=cycles*nper 

trise=nrise*delt 

tauO=trise/l .1928343 

w0=twopi*f0 

ttrun=tsteps*delt 

ELSE IF  (step)  THEN 

tauO=trise/l . 1928343 

naif-width  half-maximum  pulse  width 


tfwhm=tauO*SQRT (-LOG (0 . 5) ) 
nfwhm=NINT (tfwhm/delt) 


Half-power  pulse  width 

thp=t  au  0  *  SQRT (-LOG (1 . 0/SQRT (2.0))) 
nhp=NINT  (thp/delt) 


1/e  pulse  width 

te=tau0*SQRT (-LOG (1 . 0/e) ) 
nte=NlNT (te/delt) 


10%-90%  rise  time 
nrise=NINT (trise/delt) 


Offset  time  delay 
tof f=0 . 0 
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ntoff=0 

Truncation  time  pulse  width 

ttrun- (tsteps-1) *delt 

ntrun=tsteps 

Upper  frequency  limit 

fup=c/  (10 . 0*AMAX1 (delx, dely,  delz) ) 
wup=twopi *  f up 

80  dB  frequency  limit 

f 80= (SQRT (36. 841361) /tauO) /twopi 
END  IF 

tau0i=l . 0/tau0 

return 

END 
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SUBROUTINE  PSRCE 


C 

C 

c 

c 

c 

c 

c 


INCLUDE  'main.h' 

This  subroutine  updates  ^"^““^p/th^eleMric 

a^particular'location  hern,  de/ined  as  function 

r\  ■?  i  me  . 


tprime=time 
INCLUDE  ' source .h' 
IF  (fdtype.EQ.'x' ) 
IF  (fdtype.EQ.'y' ) 
IF  (fdtype.EQ.' z' ) 
return 

END 


exscat (iptsrc, jptsrc,  kptsrc) -source 
eyscat (iptsrc. jptsrc,  Kptsrc) -source 
ezscat (iptsrc, jptsrc, kptsrc)  sourc 
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real  freq(500),ampl(500) 

open (10, file-' source. f ' ) 
rewind  10  . 

open (20, f ile='  source2 . f  ) 

rewind  20 

do  10  i=lf  500 

read(10, *) freq(i) ,ampl U) 

do  20  i=500, 1, _1  1H> 

write  (20,  *)-freq(i)  ,ampl  (i) 

do  30  i=lf  500 

write  (20,  *)  freqU) ,  anpl  (D 

close (10) 

n.<?P  (20) 


stop 

end 
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main .h 


c 


C234567 

c  This  file  is  the  main 
c  It  includes  all  of  the 


include  file  for  TEMAC3D. 
other  required  header  (.h)  files. 


IMPLICIT  NONE 
INCLUDE  ' const ants. h' 
INCLUDE  ' setup . h' 
INCLUDE  ' variables. h' 
INCLUDE  ' sources. h' 
INCLUDE  'liao.h' 
INCLUDE  ' sensors .h' 
INCLUDE  'farfld.h' 
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c  Include  file  liao.h 

c  of  the  definitions  for 

%  £L£2  ”  tSe^ao  °-r  Badiation 

c  Boundary  Condition. 

cc . . . . . . . ""*"*******"'** 

c 

c  Variable  dictionary 

l  box-constant  multiplier  for  boundary  condition  equations 

Cc  bcy-constant^multiplier  for  boundary  condition  eolations 

l  bcz-constant^multiplier  for  boundary  condition  equations 

=  eabak^varSlffof  storing  past  time  values  of  ex  field 

c  exoaKy  and  i=nv  boundaries 

5  axbatr-vSS  for  s^rinq  pint  time  £lues  of  ex  field 
c  exDasz  ,_■>  _n(j  w=nz  boundaries 

c  components  at  k  l  ana  values  of  ey  field 

Cc  eybakx=variable  for  storing  past^time^values 

c  „  COIBP^ie  fo?  storing  past  time  values  of  ey  field 

c  S 

Of  ea  field 

t  Y  components  at  j-1  and  j-nx  boundaries 


*********** 


real* 8  bcx, bey, bez, eybakx, ezbakx, 

$exbaky, ezbaky, exbakz, eybakz  hrv(0-2*order+l,  0 : order) , 

$ezbakx (0:2,0: order, 0 : ny-1 ,  0 • nz  ^  ' 

$exbaky (0:2,0: order, 0 :nx-l,  0 :n*  J) » 

$ezbaky (0:2, 0 : order, 0 :nx-l, 0 :nz  1) , 

$ exbakz (0:2, 0 : order, 0 :nx-l, 0 :ny  1) , 

$eybakz (0:2,0: order , 0 : nx-1 , 0 : ny  1 ) 
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C234567 
C 


c 

c 


SUBROUTINE  LIAO 
INCLUDE  'main.h' 
INTEGER  i,j,k 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
j-cell  coordinate  nuinber  in  y  direction 
k=cell  coordinate  nuinber  in  z  direction  . 

1-loop  counter  to  sum  over  field  components  spatially 
m=loop  counter  to  sum  over  field  components  back  in 

m2=index  into  field  arrays  determining  which  time  step 

information  to  update  .  .  e1-ar, 

nb=index  into  field  arrays  determining  which  time  step 

information  to  use 


.,*★*•★★★★★*** 


c 

c 

c 

c 


30 

40 


c 

c 

c 

c 


Apply  Liao  ORBC  to  ey  components  at  x-0  and 
x=nxl*delx  faces 

DO  40  k=2,nzl 

DO  30  j=l,nyl  . 

eyscat (1, j, k) =eybakx(l,  1,  k) 
eyscat (nx, j,k)=eybakx(2, 1,  j,k) 
eybakxd,  1,  j,k) -eybakxd,  2,  j,k)  + 

$bcx (1, 1) *eyscat (1, j, k) +bcx (2, 1) ‘eyscat (2,  3, k)  + 

$bcx (3, 1) ‘eyscat (3, j, k)  . 

eybakx(2,l, j,k)=eybakx(2,2, 3/k)  + 

$bcx (1, 1) ‘eyscat (nx, j, k) +bcx (2, 1) ‘eyscat (nx-1,  D,  k)  + 

$bcx  (3,1) ‘eyscat  (nx-2,  j,k)  ....... 

eybakx (1, 2, j, k)=bcx (1,2) ‘eyscat (1,  3, JO; + 

$bcx (2,2) ‘eyscat (2, j, k) +bcx (3, 2) ‘eyscat  3, 3, k  + 

$bcx (4f 2) *eyscat (4, j, k) +bcx (5, 2) *eyscat (5, k) 

eybakx(2,2, j,k)=bcx(l,2)*eyscat(nx,3,k)+ 

$bcx (2,2) ‘eyscat (nx-1, j, k) +bcx (3,2) ‘eyscat  nx-2, 3, k  + 
$bcx (4^2) ‘eyscat (nx-3, j,k)+bcx(5,2) ‘eyscat (nx-4, j,k) 
CONTINUE 
CONTINUE 

Apply  Liao  ORBC  to  ez  components  at  x=0  and 
x=nxl*delx  faces 

DO  90  k=l,nzl 
DO  80  j=2,nyl 

ezscat (1, j, k)=ezbakx(l, 1, 3,k) 
ezscat (nx, j , k) =ezbakx (2, 1, j,  k) 
ezbakxd,  1,  j,k)=ezbakx(l,2,  j,k)  + 

$bcx (1, 1) ‘ezscat (1, j, k) +bcx (2, 1) ‘ezscat (2, 3, k)  + 

$bcx (3, 1) ‘ezscat (3, j, k) 

ezbakx (2, 1, j, k) =ezbakx (2, 2, 3,  k)  + 
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80 

90 


c 

c 

c 

c 


130 

140 


c 

c 

c 

c 


180 

190 


$bcx (1, 1) *ezscat  (nx, j, k> +bcx <2, 1) *ezscat (nx-1, j, k)  + 
$bcx(3, 1)  ‘ezscat  (nx-2,  j,k) 

ezbakx (1, 2, j, k)=bcx (1, 2) *ezscat (1, 3, k) + 

$bcx (2,2) *ezscat (2, j, k) +bcx (3,2)  'ezscat  3, 3,  k)  + 

$bcx (4,2) ‘ezscat (4, j,k)+bcx(5,2) ‘ezscat (5, 3,  ) 
ezbakx  (2, 2, j, k) -bcx (1, 2) ‘ezscat (nx, 3, k) + 

$bcx(2,2) *ezscat (nx-1, j, k) +bcx (3,  2)  ezscat (nx  , 3,  ) 

$bcx (4,2) *ezscat (nx-3, j, k) +bcx (5, 2) *ezscat (nx-4,  j,  k) 
CONTINUE 
CONTINUE 

Apply  Liao  ORBC  to  ex  components  at  y=0  and 
y=nyl‘dely  faces 

DO  140  k=2, nzl 
DO  130  i=l, nxl 

exscat (i, 1, k) —exbaky (1, 1,  i,  k) 
exscat (i, ny, k) =exbaky (2, 1,  i,  k) 
exbaky (1, 1, i,k)=exbaky (1,2, i, k) + 

$bcy (1, 1) *exscat (i, 1, k)+bcy (2, 1) *exscat (i,2, k) 

$bcy(3, 1) *exscat (i, 3,k) 

exbaky (2,1, i,k) -exbaky (2,2,i, k)+ 

$bcy (1, 1) *exscat (i, ny, k) +bcy (2, 1) *exscat (i, ny  1, k) 

$bcy (3, 1) ‘exscat (i, ny-2, k)  ; 

exbaky (1, 2, i, k) =bcy (1, 2) ‘exscat (i, 1, k) + 

$bcy (2,  2) ‘exscat (i,2,k)+bcy (3,2) *exscat (i, 3, k)  + 

$bcy (4,2) *exscat (i, 4, k) +bcy (5,2) ‘exscat (i,  5, k) 
exbaky  (2,2, i, k)=bcy (1,2) *exscat (i,ny, k)  + 

$bcy (2,2) *exscat (i, ny-lr k) +bcy (3,2) *exscat (1, ny-2,  ) 

$bcy (4, 2) *exscat (i,ny-3,k)+bcy (5,2) *exscat (i,ny  4,k) 
CONTINUE 
CONTINUE 

Apply  Liao  ORBC  to  ez  components  at  y=0  and 
y=nyl*dely  faces 

DO  190  k=l,nzl 
DO  180  i=2, nxl 

ezscat (i, 1, k) -ezbaky (1, 1, i, k) 
ezscat (i, ny, k) -ezbaky (2, 1, i, k) 
ezbaky  (1,1,  i,k)  -ezbaky  (1, 2,  i,k)  + 

$bcy (1, 1) *ezscat (i, 1, k) +bcy (2, 1) ‘ezscat (i,  2,  k)  + 

$bcy (3, 1) ‘ezscat (i, 3, k) 

ezbaky (2, 1, i,k) -ezbaky (2, 2,  i,  k)  + 

$bcy (1, 1) ‘ezscat (i, ny, k) +bcy (2, 1) ‘ezscat (i, ny  1, k) + 

$bcy (3,1) ‘ezscat (i, ny-2, k) 

ezbaky (1, 2, i, k) -bey (1, 2) ‘ezscat (i, 1, M + 

$bcy (2,2) ‘ezscat  (i, 2, k) +bcy (3,2) ‘ezscat (i,  3,  k  + 

$bcy(4,2)*ezscat(i,4,k)+bcy(5,2)*ezscat (i,  5,k) 

ezbaky (2, 2, i, k) =bcy (1, 2) ‘ezscat (i,  ny, k) 
$bcy  (2,2) ‘ezscat (i, ny-1, k) +bcy (3,2) ‘ezscat (i, ny-2,  k)  + 
$bcy (4,2) *ezscat (i, ny-3, k) +bcy (5, 2) *ezscat (if ny  4, k) 
CONTINUE 
CONTINUE 


C 

c 

c 

c 


Apply  Liao  ORBC  to  ex  components  at  z-0  and 
z=nzl*delz  faces 
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230 

240 


DO  240  j=2,nyl 

DO  230  i=l,nxl  . 

exscat (i, j, l)=exbakz (1, If i, V 
exscat (i, j, nz) =exbakz (2, 1, i, 3> 

^xhakz (1, 1, i, i)=exbakz (1, 2, i, D) +  . 

$bcz  (1, 1) *exscat (i, j. D +bcz  <2' Exscat U,  3, 

SbCZ(e^Sl“!^j)-exbak2(2,2,i,j)t  .  . 

Sbcs(l, 1) 'exscat (i, j, nz)+bcz (2, 1) 'exscat (i,  j.nz 

$bcz (3, 1) *exscat (i,  j,nz-2)  , 

exbakz  (1, 2,  i,  j)  =bcz  (1, 2)  *exscat  (i,  j#- 1) 

$bcz (2,  2) * ex scat (i, j, 2) +bcz (3,2) *exscat  U# 3/ 

Sbcz  4  2) -exscat (i, j, 4)+bcz (5. 2) 'exscat U, 5) 
u-i.-  o  o  -i  i }  =bcz  (1^  2)  *exscat  (i,  j*  nz) 

Sbcz.Ilt'exscaui  j.n2-l>+bcz<3,2>'exscat(i,:),nz-2  ♦ 

toll  4:t5  'exscat  <i.  j, M-3)  +bcz  <5, 2> 'exscat  Cl, nz-4) 
CONTINUE 
CONTINUE 


C 

C 

C 


280 


Apply  Liao  ORBC  to  ey  components  at  z=0  and 
z=nzl*delz  faces 
c 

DO  290  j=l,nyl 
DO  280  i=2, nxl 

eyscat (i,  j,  l)=eybakz (1, 1, i, D> 
eyscat (i,  j,nz)=eybakz (2, 1, if  j) 
eybakzdflfi,  j) -eybakz (1, 2, i,  3>  + 
ibcz (1, 1) *eyscat (i, jf  D  +bcz (2, 1) *eyscat (i, 3, 

;bcz(3,l)*eyscat(i,  j,3) 

eybakz(2,l,i, j)-eybakz (2, 2, 1, 3) + 

;bcz (1, 1) * eyscat (i, j, nz) +bcz (2, 1) ‘eyscat (1, 3,nz  1)+ 

5bcz (3, 1)  *eyscat  (if  j# nz  2) 

eybakz (1, 2, i, j) -bcz (1, 2) *eyscat (i, 3, D  + 

?bcz (2,2) *eyscat (i, j, 2) +bcz (3, 2) ‘eyscat  1, 3,  3  + 

?bcz (4,2) *eyscat (i, j, 4) +bcz (5,2) ‘eyscat (1,  3» 
eybakz (2,2, i, j)=bcz (1, 2) *eyscat (1, 3,nz)+ 

5bcz(2  2) *eyscat (i, j, nz— 1) +bcz  (3, 2) *eyscat (1,  j, 

Sz  (4;  2)  4yscat  (i,  j,nz-3) +bcz  (5, 2)  *eyscat  (i,  3, nz-4) 

CONTINUE 

9 on  rnMTTNUE 


RETURN 

END 
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c 


SUBROUTINE  INITFF 

INCLUDE  'main.h' 

INTEGER  i,  j/  k, iin,  jin,  kin 
INTEGER  mtot 

REAL  x,  y,  z, rfx, rfy, rf z, rhatx, rhaty,  rhatz, 
$xhat, yhat, zhat,  rdrhat,  xzhat, yzhat 


c 

c 


This  subroutine  initializes  the  far  field  transformation . 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c1 

c 

c 

c 

c 


Local  variable  dictionary 


i=cell  coordinate  number  in  x  direction 
iin=index  number  into  retarded  time  delay  arrays  for 
integration  surface  with  unit  normal  +/  a_x 
j=cell  coordinate  number  in  y  direction 
j in= index  number  into  retarded  time  delay  arrays  for 
integration  surface  with  unit  normal  +/-  a_y 
k=cell  coordinate  number  in  z  direction 
kin-index  number  into  retarded  time  delay  arrays  for 
integration  surface  with  unit  normal  +/-  a_z 
mtot-the  total  number  of  time  bins  required  for  the  far  field 
vector  potentials 

rdrhat=r*rhat  (the  dot  product  of  the  position  vector  for  the 
cell  being  integrated  over  with  the  unit  vector  in  the 
direction  of  the  far  field  observation  point 
rf=maximum  distance  of  rfx,  rfy,  rfz 
rfx=maximum  distance  from  center  of  problem  space  to 
on  the  integration  surface  with  unit  normal  a_x. 
rfy=maximum  distance  from  center  of  problem  space  to 
on  the  integration  surface  with  unit  normal  a_y. 
rfz=maximum  distance  from  center  of  problem  space  to 
on  the  integration  surface  with  unit  normal  a_z. 
rhatx=x  component  of  unit  vector  in  direction  of  far  field 
observation  point 

rhaty=y  component  of  unit  vector  in  direction  of  far  field 

observation  point  1  . 

rhatz- z  component  of  unit  vector  in  direction  of  far  field 
observation  point 

x=x  coordinate  of  a  cell  on  the  integration  surface 
xhat=x* rhatx 
xzhat=x*rhatx+z*rhatz 

y=y  coordinate  of  a  cell  on  the  integration  surface 
yhat=y*rhaty 
yzhat=y*rhaty+z*rhatz 

z=z  coordinate  of  a  cell  on  the  integration  surface 
zhat=z*rhatz 


a  cell 
a  cell 
a  cell 


**★★★★★★★★*★★*★*+*★***** 


Compute  upper  and  lower  indices  of  far  field  integration 
surface 

iup=nx-5 
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o  o  o  no 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 


jup=ny-5 

kup=nz-5 

ilow=5 

jlow=5 

klow=5 

Compute  distance  terms  to  determine  maximum  distance  from 
center  of  space  to  a  cell  on  the  integration  surface 

rfx=SQRT ( ( (iup-1) *delx-xc) **2+ ( ( jup-0 .5) *dely-yc) **2+ 

$( (kup-0.5) *delz-zc) **2) 

rfy=SQRT ( ( (iup-0 .5) *delx-xc) **2+ ( ( jup-1) *dely-yc) **2+ 

$ ( (kup-0.5) *delz-zc) **2) 

rfz=SQRT ( ( (iup-0 .5) *delx-xc) **2+ ( (jup-0 . 5) *dely-yc) **2+ 

$ ( (kup-1) *delz-zc) **2) 

Take  the  maximum  of  the  three  distance  terms 
rf=AMAXl (rfx, rfy, rf z) 

Check  the  number  of  time  bins  needed  for  the  transformation 
against  the  maximum  number  of  time  bins  allotted. 

mtot=tsteps+INT (rf / (c*delt) ) +10 
IF  (mtot .GT.mmax)  THEN 
WRITE  (15,*)  '  ' 

WRITE  (15,*)  'Error!  The  number  of  time  bins  for  the' 
WRITE  (15,*)  'far  field  vector  potential  arrays  is  too' 
WRITE  (15,*)  'small.  Please  set  parameter  mmax  in  file' 
WRITE  (15,*)  ' setup. h  to  be  >=  ',mtot 
WRITE  (15,*)  'Execution  halted.' 
errflg=true 
END  IF 

Initialize  the  far  field  vector  potential  pointer  arrays 

inuwx  ( 1 )  *=5 
inuwx (2) =6 
inuwx (3) =2 
inuwx (4) =3 
inuwy ( 1 ) =4 
inuwy (2) =6 
inuwy (3) =1 
inuwy (4) =3 
inuwz ( 1 ) =4 
inuwz(2)=5 
inuwz ( 3 ) =1 
inuwz ( 4 ) =2 

fpcdt=1.0/ (4.0*pi*c*delt) 

Compute  the  unit  vector  in  the  direction  of  the  far-field 
observation  point. 

rhatx=sin  (theta*degrad)  *cos  (phi*degrad) 
rhaty=sin (theta*degrad) *sin (phi*degrad) 
rhatz=cos (theta*degrad) 

Now  fill  the  time  delay  arrays 
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c  Start  with  faces  with  unit  normal  +/—  a_x . 
c 

x= (ilow-1) *delx-xc 
DO  30  i=l, 2 

xhat=x*rhatx 
DO  20  k=klow, kup 
kin=k-klow+l 
z= (k-0 . 5) *delz-zc 
zhat=z*rhatz 
xzhat=xhat+zhat 
DO  10  j= jlow, jup 
jin*j-jlow+l 
y=( j-0.5) *dely-yc 
rdrhat=xzhat+y*rhaty 
tretx ( jin, kin, i) = (rf-rdrhat) *cinv 
10  CONTINUE 

20  CONTINUE 

x= (iup-1) *delx-xc 
30  CONTINUE 
c 

c  Next  compute  delays  for  faces  with  unit  normal  +/-  a_y. 
c 

y= (j low-1) *dely-yc 
DO  60  j=l, 2 
yhat=y*rhaty 
DO  50  k=klow, kup 
kin=k-klow+l 
z=  (k-0 . 5) *delz-zc 
zhat=z*rhatz 
yzhat=yhat+zhat 
DO  40  i=ilow, iup 
iin=i-ilow+l 
x=(i-0.5) *delx-xc 
rdrhat=yzhat+x*rhatx 
trety (iin, kin, j)= (rf-rdrhat) *cinv 
40  CONTINUE 

50  CONTINUE 

y= ( jup-1 ) *dely-yc 
60  CONTINUE 
c 

c  Finally  compute  delays  for  faces  with  unit  normal  +/-  a_z. 
c 

z= (klow-1) *delz-zc 
DO  90  k=l, 2 
zhat=z*rhatz 
DO  80  j=jlow, jup 
jin=j-jlow+l 
y= ( j-0 . 5) *dely-yc 
yhat=y*rhaty 
yzhat=yhat+zhat 
DO  7  0  i=ilow, iup 
iin=i-ilow+l 
x= (i-0 .5) *delx-xc 
rdrhat=y zhat +x  *  rhat x 
tretz (iin, jin, k) = (rf-rdrhat) *cinv 
70  CONTINUE 

80  CONTINUE 
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z= (kup-1) *delz-zc 
90  CONTINUE 
RETURN 
END 
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SUBROUTINE  HOLL3D 


C 

C 

C 

C 

C 

C 

C 

C 


c 


7 

8 
9 


THIS  SUBROUTINE  HOLLOWS  OUT  THREE  DIMENSIONAL  FDTD  OBJECTS 

AUTHOR:  JOHN  H.  BEGGS 

DATE:  7/16/92 

SUBROUTINE  HOLL3D 
INCLUDE  'main.h' 

LOGICAL*l  iprod, jprod, kprod 
INTEGER  i, j, k 

DO  9  k=2,nzl 
DO  8  j=2,nyl 
DO  7  i=2,nxl 

iprod=idl (i, j+1, k) *idl (i, j-1,  k) *idl (i,  j,  k-1) * 

$idl (i, j, k+1) *id2 (i, j, k) *id2 (i+1, j,  k) *id2 (i, j-1, k) * 

$id2 (i+1, j-1, k) *id3 (i, j, k) *id3 (i+1,  j,  k) * 

$id3(i,  j, k-1) *id3 (i+1,  j,  k-1) 
iprod=iprod*id2 (i, j, k+1) *id2 (i,  j-1,  k+1) *id2 (i,  j,  k-1) * 

$id2 (i, j-1, k-1) *id2 (i+1, j, k+1) *id2 (i+1,  j-1,  k+1) * 

$id2 (i+1, j, k-1) *id2 (i+1, j-1, k-1) 
iprod=iprod*id3 (i, j+1,  k) *id3 (i,  j-1,  k) *id3 (i, j-1,  k-1) * 

$id3 (i, j+1, k-1) *id3 (i+1, j+1,  k) *id3 (i+1,  j-1,  k) * 

$id3 (i+1, j-1, k-1) *id3 (i+1, j+1, k-1) 
jprod=id2 (i+1, j, k) *id2 (i-1,  j, k) *id2 (i, j, k-1) * 

$id2 (i, j, k+1) *idl  (i, j, k) *idl (i, j+1, k) *idl (i-1, j, k) * 

$idl (i-1, j+1, k) *id3 (i, j, k) *id3 (i, j+1, k) *id3 (i, j, k-1) * 

$id3 (i, j+1, k-1) 

jprod= jprod* idl (i, j, k+1) *idl (i-1,  j,  k+1) *idl (i,  j,  k-1) * 

$idl (i-1, j, k-1) *idl (i, j+1,  k+1) *idl (i-1,  j+1, k+1) * 

$idl (i, j+1, k-1) *idl  (i-1, j+1, k-1) 
jprod= jprod* id3 (i+1, j,k) *id3 (i-1,  j,  k) *id3 (i+1, j,  k-1) * 

$id3 (i-1, j, k-1) *id3 (i+1, j+1, k) *id3 (i-1, j+1, k) * 

$id3 (i+1, j+1, k-1) *id3 (i-1, j+1, k-1) 
kprod=id3 (i-1, j, k) *id3 (i+1, j, k) *id3 (i,  j-1, k) * 

$id3 (i,  j+1, k) *idl (i, j, k) *idl (i,  j,  k+1) *idl (i-1, j,  k) * 

$idl (i-1, j,k+l) *id2 (i, j , k) *id2 (i, j,k+l) *id2 (i, j-1,  k) * 

$id2 (i, j-1, k+1) 

kprod= kprod* idl (i, j+1, k) *idl (i-1,  j+1,  k) *idl (i-1,  j-1,  k) * 
$idl (i, j-1, k) *idl (i, j+1, k+1) *idl (i-1, j+1,  k+1) * 

$idl (i-1, j-1, k+1) *idl (i, j-1,  k+1) 
kprod=kprod*id2  (i+1, j, k) *id2 (i-1, j,  k) *id2 (i-1, j-1,  k)  * 

$id2 (i+1, j-1, k) *id2 (i+1, j, k+1) *id2 (i-1,  j,  k+1) * 

$id2 (i-1, j-1, k+1) *id2 (i+1,  j-1,  k+1) 

IF  (iprod. NE.O)  idl (i, j, k)=-l 
IF  (jprod. NE.O)  id2 (i, j,  k) =-l 
IF  (kprod. NE.O)  id3 (i, j,  k)=-l 
CONTINUE 
CONTINUE 
CONTINUE 
DO  12  k=l,nz 
DO  11  j=l,ny 
DO  10  i=l,nx 

IF  (idl  (i, j, k) .EQ.-l)  idl (i,  j,  k)=0 

IF  (id2(i,j,k)  .EQ.-l)  id2(i,j,k)=0 
IF  (id3(i, j,k) .EQ.-l)  id3(i,j,k)=0 
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10  CONTINUE 

11  CONTINUE 

12  CONTINUE 
RETURN 
END 
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C234567 
c 


c 

c 

c 

c 


SUBROUTINE  UPDHXS 

This  subroutine  updates  the  x  component  of  scattered 
magnetic  field. 

INCLUDE  'main.h' 

INTEGER  i,j/k 


c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

i-cell  coordinate  number  in  x  direction 
j-cell  coordinate  number  m  y  direction 
k=cell  coordinate  number  in  z  direction 


**★***★★ ****** ★***★★★ 

DO  30  k=l,nzl 
DO  20  j=l, nyl 
DO  10  i=2, nxl 


c 

c 

c 

c 

c 

c 


•c 

c 

c 


Get  the  material  type 
IF  (id4  (if  jf  k)  .LT.2)  THEN 

Non-magnetic  material  update  equation 

hxscat (i, j, k) =hxscat (i,  j,  k)  - (ezscat (i,  j+l» k) - 

$ezscat(i,  j,k))*dtomdy+ 

$ (eyscat (i, j, k+1) -eyscat (i, 3, k) ) *dtomdz 

ELSE 

Lossy  magnetic  materials 

hxscat  (i, j,k)=hxscat (i, 3, k) *hold(id4 (i,  j;k) >- 
$ (ezscat (i, j+1, k) -ezscat (i, j, k) > *dedy  id4  i,  >  k 
$ (eyscat (i,  j,  k+1) -eyscat (i, D, k) )  dedz (id4 (i, j, k) 

rLhaS  (i-mScoS+ (?-0°5)  Mycosb+  (k-0 .5)  -dzcosg 

ST  UtprSne .  LT^ttrun)  .AND .  (tprime . gt .  0 . ) )  THEN 
INCLUDE  ' source. h' 

INCLUDE  ' ddtsrce.h' 
hxscat  (i,  j ,  k)  =hxscat  (i,  j ,  k)  -hamplx 
$ (hinc (id4 (i,  j,  k) ) *source+ddthin (id4 (i, 3,  k) )  ddtsrc) 

END  IF 


END  IF 

10  CONTINUE 

20  CONTINUE 

30  CONTINUE 
RETUEN 
END 
c 
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c 

c 

c 

c 


SUBROUTINE  UPDHYS 

This  subroutine  updates  the  y  component  of  scattered 
magnetic  field. 

INCLUDE  'main.h' 

INTEGER  i, j,k 


c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
j=cell  coordinate  number  in  y  direction 
k-cell  coordinate  number  in  z  direction 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


DO  30  k=l, nzl 
DO  20  j-2, nyl 
DO  10  i=l, nxl 

Get  the  material  type 

IF  (id5 (i, j,k) .LT.2)  THEN 

Non-magnetic  material  update  equation 

hyscat (i, j, k)=hyscat (i,  j>k)+ (ezscat (i+1# j,k)~ 

$ezscat  (if  j/  k) )  *dtomdx-  ,  . 

$  (exscat  (i,  j,  k+1) -exscat  (i,  u,  k) )  *dtomdz 

ELSE 

Lossy  magnetic  materials 

hyscat  (i,  j,  k)  =hyscat  (i,  j,  k)  *hold (idS  (i,  j,  k) )  + 

$  (ezscat  (i+1,  j,  k)  -ezscat  (i,  j,  k) )  *dedx  (idS  <i,  j  ,  jO ) 

$ (exscat (i, j, k+1) -exscat  (i,  j, k) ) *dedz (idS (i, D, k) ) 

IF  ( .NOT.plwave)  GO  TO  10 

rdrhat= ( i-0 . 5 ) *dxcosa+ ( j-1 ) *dycosb+ (k-0 . 5 )  dzcosg 

tprime=time-rdrhat  *cinv-tdelay 
IF  ((tprime.LT.ttrun)  .AND.  (tprime.gt.O.))  THEN 

INCLUDE  ' source. h' 

INCLUDE  'ddtsrce.h' 

hyscat  (i,  j,  k)=hyscat  (i,  j,k)-hamply* 

$ (hinc (id5 (i,  j, k) ) *source+ddthin(id5 (1,  j,k) )  ddtsrc) 

END  IF 


20 

30 


END  IF 
10 

CONTINUE 

CONTINUE 

RETURN 

END 


CONTINUE 


SUBROUTINE  UBDHZS 
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c 

c 

c 

c 


This  subroutine  updates  the  z  component  of  scattered 
magnetic  field. 

INCLUDE  'main.h' 

INTEGER  i,j/k 


c 

C 

c 

c 

c 

c 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
i=cell  coordinate  number  in  y  direction 
k-cell  coordinate  number  in  z  direction 


z* *********  ******** 

DO  30  k=2,nzl 
DO  20  j-l,nyl 
DO  10  i=lrnxl 


c 

c 

c 

c 

c 

c 


c 

c 

c 


Get  the  material  type 
IF  (id6(i, j/k) -LT.2)  THEN 

Non-magnetic  material  update  equation 

hzscat (if jf  k) =hzscat (if  j, k)  +  (exscat (if  j+lr  k) - 

$exscat(if  jfk))*dtomdy-  , 

$ (eyscat (i+lf j, k) -eyscat (if  D, k) )  dtomdx 

ELSE 

Lossy  magnetic  materials 

hzscat (i, j, k)=hzscat (i, j,  k) *hold(id6 (i,  j, k) )  + 

$  (exscat  (i,  j+l,k) -exscat  (i,j,k)  )  *dedy  Ud6  U,D,k  - 

$ (eyscat (i+1, j, k)-eyscat (i, 3, k) )  dedx (id6 <1,  3, k) ) 

IF  (  NOT.plwave)  GO  TO  10 

rdrhat= (i-0 . 5) *dxcosa+ ( j-0 .5) *dycosb+ (k-1) *dzcosg 

tprime=time-rdrhat*cinv-tdelay  N 

IF  ((tprime.LT.ttrun)  .AND.  (tpnme.gt.O.))  THEN 

INCLUDE  ' source. h' 

INCLUDE  ' ddtsrce .h' 

hzscat (i, j ,  k) =hzscat (i, j , k) -hanplz* 

$ (hinc (id6 (i, j, k) ) *source+ddthin (id6 (1, k) )  ddtsrc) 

END  IF 


END  IF 


10  CONTINUE 

20  CONTINUE 

30  CONTINUE 
RETURN 
END 
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C2345 Subroutine  FLDSAMd,  j,k,type,  field) 
c 

INCLUDE  'main.h' 

INTEGER  i, j/k, type  .  h_inciik,hzincijlk,exincijk 

REAL  ezincijk 


This  subroutine  samples  a  particular  field  quantity  for 
savin,  to  point  or  slice  sensor  data  file. 


c 
c 

c  ^ ++**★★**★**+***** ******************** 

c********************************* 

c  Local  variable  dictionary 

n  f i  pld=satnpled  field  quantity 

C  i=cell  coordinate  number  in  x  direction 

c  -j=cell  coordinate  number  in  y  direction 

k=cell  coordinate  number  in  z  direction 
c  type-number  of  field  quantity  to  be  sampled 

. . * . * . * . * . 

33^34. 35^36^37^38/ 39, 41.  43,  43,  44,  type 


Ex  scattered  field 

11  field=exscat (i, jf k) 

GO  TO  40 

Ey  scattered  field 

12  field=eyscat (i. j/k) 

GO  TO  40 

:  Ez  scattered  field 

13  field— ezscat (if j» k) 

GO  TO  40 

c  Hx  scattered  field 

c  . 

14  field=hxscat (if  3f  k) 
GO  TO  40 

Q 

c  Hy  scattered  field 

c  ,  .  ,  . 

15  f ield=byscat (if jf k) 

GO  TO  40 


Hz  scattered  field 

16  field=hzscat(i,  jf k) 

GO  TO  40 


c 

c 


x-directed  conduction  current 
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rdrhat-  (1-0.5)  *dxcosa+  < j-1)  Myc0Sb+  (lc-l>  'dicoa, 

tprime-time-rdrhat*cinv-tdelay 

JSSl^SS5:3.»»*(— t(i.3.«  ♦  eamplx*source) 
GO  TO  40 


c 

c 

c 


18 


c 

c 

c 


19 


c 

c 

c 


c 

c 

c 


y-directed  conduction  current 


20 


rdrhat-  (i-1)  *dxeosa+  ( j-0 -5)  *dycosb+  (lc-1)  “dzcosg 

tPrime-time-rdrhat*cinv-tdelay 

“S®ai^aSa.j.H)*<eyacat(i,j.IO  *  ea*ply*source> 

GO  TO  40 


z-directed  conduction  current 


rdrhat= (i-1) *dxcosa+ ( j-1) *dycosb+ (k-0 .5) *dzcosg 
tprime=time-rdrhat  *  cinv-tdelay 

fSsl^aSa.lADMaaacatU,),!)  *  ea>»plz*source> 

GO  TO  40 

x-directed  displacement  current 

rdrhat= (i-. 5) *dxcosa+ ( j-1) *dycosb+ (k-1 . 5) *dzcosg 
tpr ime-t ime-rdrhat  *  cinv-tde lay 
INCLUDE  ' source. h' 
hyinci jkl=-hamply* source 

rdrhat= (i- . 5) *dxcosa+  ( j-1) *dycosb+ (k- . 5)  *dzcosg 

tprime=t ime-rdrhat  *cinv-tdelay 

hyinci  jk=-harr55ly*  source 

rdrhat= (i-.5) *dxcosa+  ( j-.5) *dycosb+ (k-1) *dzcosg 

tpr  ime=t  ime-rdrhat* cinv-tdelay 

hzincijk=-hamplz*source 

rdrhat= (i- . 5) *dxcosa+  ( j-1 -  5) *dycosb+ (k-1) *dzcosg 

tprime=t ime-rdrhat* cinv-tdelay 

hzinci jlk=-hamplz*source 

rdrhat= (i-0 .5) *dxcosa+  (j-1) *dycosb+ (k-1)  *dzcosg 
tpr ime=t ime-rdrhat  *  cinv-tdelay 
exinci  jk=-eainplx*source 

field- (hyscat  ^'lt-1^i^2gcat*(i-j--lCb^-bzldCi)lk^*deiz-*t^e^+ 

?££££  <i.  5,1c)  ^Mexscat  <1,1,10 
GO  TO  40 

y-directed  displacement  current 
21  rdrhat= (i-1) *dxcosa+ ( j-0 -  5) *dycosb+ (k-0 .5) *dzcosg 

tpr  ime**t  ime-rdrhat  *  cinv-tdelay 
INCLUDE  ' source. h' 
hxinci jk=— hamplx* source 
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rdrhat- <i-l> -dacoaat (3-OS) *dycosb+ <k-l . 5) *dzc»3d 
tpr ime=t ime-rdrhat  *  cinv-tdelay 

hxincijkl=-hamplx*source 

rdrhat= (i-1 .5) *dxcosa+ ( j- . 5) *dycosb+ (k-1) *dzcosg 
tpr  ime=t  ime-rdrhat  *  cinv-tde  lay 

hzincil jk=-hamplz*source 

rdrhat= (i-. 5) *dxcosa+ ( j- . 5) *dycosb+ (k-1) *dzdosg 
tpr  ime-time-rdrhat  *  cinv-tdelay 
hzinci jk=— hamplz* source 

rdrhat- (1-1) *dx=osa+ ( J-0 . 5) •dycoabt (k-1) -dzcosg 

tpr  ime=t  ime-rdrhat  *  cinv-tdelay 
eyinci jk=-eamply*  source 

(1. 3,  k) )  *  (eyscat  (i.  j,M  keyancuk) 

GO  TO  40 

z  z-directed  displacement  current 

522  rdrhat= (i- . 5) *dxcosa+ ( j-1) *dycosb+ (k-0 . 5) *dzcosg 

tprime=t ime-rdrhat *cinv-tdelay 

INCLUDE  ' source. h' 
hyinci  jk=-haitply*  source 

rdrhat= (i-l . 5) *dxcosa+ (j-1) *dycosb+ (k-0 .5) *dzcosg 

tprime=t  ime-rdrhat  *cinv-tdelay 

hyinci  1  j  k=-hamply *  sour ce 

rdrhat= (i-l) *dxcosa+ ( j-1 . 5) *dycosb+ (k-0 .5) *dzcosg 
tpr ime=t ime-rdrhat  *  cinv-tde lay 

hxincijlk=-hamplx* source 

rdrhat= ( i-l) *dxcosa+ ( j- . 5) *dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay 
hxinci jk=-hamplx*source 

rdrhat- (i-l) *dxcosa+ ( j-1) *dycosb+ (k-. 5) *dzcosg 

tprime=t  ime-rdrhat  *cinv-tdelay 
ezincijk=-eamplz*source 

$sigma (id3 (i, j, k) ) * (ezscat  U, D, k) +ezxnci3k) 

GO  TO  40 

q  x— directed  total  current 

°23  rdrhat-  (i-0 . 5)  -dkcosat ( j-1)  Mycosbt  (k-1 . 5)  -dzcoag 

tpr  ime-t  iaie-rdrhat  *  cinv-tdelay 

IF^1) tpriine LT . tt run)  .AND.  (tprime.GT.O. , )  THEN 
INCLUDE  ' source. h' 
hyinci jkl=hamply*source 

END  IF 
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rdrhat-  ( i-0 . 5)  -dxcosat  <  j-1 )  Mycoabt  (k- .  5 )  'dzcosg 

tprime-time-rdrhat-cinv-tdelay 

?r“°tpSe°LT.ttrun).»>D.(tprlBa.GT.O.))  THEN 
INCLUDE  'source.h' 
hyincijk=hamply*source 
END  IF 

rdrhat = (i- . 5) *dxcosa+ ( j- . 5) *dycosb+ (k-1) *dzcosg 

tpr ime=t ime-rdrhat * cinv-tdelay 

IF^Utprim^LT.ttrun)  .mid.  (tprime.GT.O.))  THEN 
INCLUDE  ' source . h' 

hzincijk-hamplz ‘source 

END  IF 

rdrhat-  (i- . 5)  *dxcosa+  ( j-1  -  5)  *dycosb+  (k-1)  Mzcosg 

tpr ime=t ime-rdrhat * cinv-tde lay 

IF^^tpriine '. LT . ttrun)  .AND .  (tprime  .GT.  0 . ) )  THEN 
INCLUDE  '  source.h' 
hzinci  jlk— hamplz*source 
END  IF 

field-  (hyscat  (i,  j,  k-1)  +hyinci jkl-hyscat  (i,  j^)-hyincijk)  *dely+ 
S (hzscat (i, j, k) +hzinci jk-hzscat (i, j-1, k)-hzinci]lk)  del 


GO  TO  40 

c  y— directed  total  current 

°24  rdrhat= (i-1) *dxcosa+ ( j-0 . 5) *dycosb+ (k-0.5) *dzcosg 

tpr ime=t ime-rdrhat * cinv-tdelay 

SfuJprli^lT.ttrun)  .AND.  (tprima.GT.O.))  THEN 
INCLUDE  'source.h' 
hxincijk=hamplx*source 

END  IF 

rdrhat- (i-1) *dxcosa+ ( j-0 . 5) *dycosb+ (k-1 .5) ‘dzcosg 
tpr ime=t ime-rdrhat  *  cinv-tde lay 

IfT? tprime  1  LT. ttrun)  .AND.  (tprime. GT.O.))  THEN 
INCLUDE  ' source .h' 

hxinci jkl=hamplx*source 
END  IF 

rdrhat- (i-1. 5) *dxcosa+( j-.5) *dycosb+ (k-1) *dzcosg 
tpr ime=t ime-rdrhat *  cinv-tdelay 

IF1^ tprime  *.  LT .  ttrun)  .AND .  (tprime  .GT.O.))  THEN 
INCLUDE  ' source .h' 
hzincil jk=hamplz*source 

END  IF 

rdrhat- (i-. 5) *dxcosa+( j-.5) *dycosb+(k-l) ‘dzcosg 
tpr ime— t ime-rdrhat *  cinv-tdelay 
hzinci jk-0.0 
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c 

c 

c 


if  ( (tprime . LT . ttrun)  .AND.  (tprime.GT.O.) ) 

INCLUDE  'source.h' 
hzincijk=hamplz*source 

END  IF 

$  <hla£t  U-“i,‘ki  -del, 

GO  TO  40 


z-directed  total  current 

25  rdrhat- (i- . 5, -dkcosa*  < j-1) 'dycoabt (k-0 .5) -dzcos, 

tprime-time- rdrhat *  cinv-tdelay 

IF^'utprime^LT . ttrun) .AND.  (tprime.GT.O.H  THEN 
INCLUDE  'source.h' 

hyincijk=hamply* source 

END  IF 

rdrhat= (i-1.5) *dxcosa+ ( j-1) *dycosb+ (k-0 .5) *dzcosg 
tprime=t ime-rdrhat  *  cinv-tde lay 

;r"wSe'.°T.ttrun)  .AND.  (tprime.GT.O.H  THEN 
INCLUDE  'source.h' 

hyincil jk=hamply*source 

END  IF 

rdrhat- <i-l)  -dkcosat  <  J-1 . 5)  Mycosbt (k-0 . 5.  *da=oac, 

tprime-time-rdrhat*cinv-tdelay 

IF^'ttprime *. LT . ttrun)  .AND.  (tprime. GT.O.H  THEN 
INCLUDE  'source.h' 
hxinci j lk=hamplx*source 
END  IF 

rdrhat-  <i-l>  *d*cosa-M  j- . 5, -dytoabt  (k-0 . 5,  -dzcoeg 

tprime-time-rdrhat*cinv-tdelay 

IF^Utprime^LT.  ttrun)  .AND.  (tprime. GT.O.H  THEN 
INCLUDE  ' source .h' 
hxinci jk=hamplx*source 
END  IF 

GO  TO  40 
Ex  total  field 

26  .&£»♦(  l-M  *•»*«»  <k-l)  -dtcoa, 

tDrime=time-rdrhat*cinv-tdelay  „ 

IF  ( (tprime. LT. ttrun) .AND. (tprime. GT.O.) 

INCLUDE  'source.h' 
field=field  +  eamplx*source 

END  IF 
GO  TO  40 


c 

c 

c 
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Ey  total  field 


rdrhatMi-l^  *dxcosa+  ( j-0 . 5 )  *dycosb+  (k-1)  Mzcosg 
¥ .  GT .  0 . )  >  THEN 

INCLUDE  'source.h' 
field-field  +  eamply*source 
END  IF 
GO  TO  40 

Ez  total  field 

rdrhat- U-U  *dxcosa+(j-l)*dycosb+  Ot-0 . 5)  ‘dzcosc, 
t*or ime=t ime-rdrhat  *  cinv  t delay  T 

IF  ( (tprime.LT.ttrun)  .AND.  (tprime . GT . 0  . ) )  THE 
INCLUDE  'source.h' 
field=field  +  eamplz*source 
END  IF 
GO  TO  40 

Hx  total  field 

rdrhat- (i-1) *dxcosa+ ( j-0 .5) *dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay 

IF  ((tprime.LT.ttrun)  .AND.  (tprime. GT.O.))  THEN 

INCLUDE  'source.h' 
field=field  +  hamplx*source 
END  IF 
GO  TO  40 

Hy  total  field 

rdrhat-^i-O . 5) *dxcosa+ ( j-1) *dycosb+ (k-0 . 5) *dzcosg 

i?rT( tprime .  LTJttrun)  .AND .  (tprime  .GT.O.))  THEN 
INCLUDE  'source.h' 

field=hyscat(i, j,k)  +  hamply* source 
END  IF 
GO  TO  40 

Hz  total  field 

rdrhat= (i-0 . 5) *dxcosa+ ( j-0 .5) *dycosb+ (k-1) *dzcosg 
tpr  ime=t  ime-rdrhat  *  cinv-t  de  lay 

IF  ((tprime.LT.ttrun)  .AND.  (tprime. GT.O.))  THEN 

INCLUDE  'source.h' 

field=hzscat (i, j, k)  +  hamplz*source 
END  IF 
GO  TO  40 

Ex  incident  field 
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c 

c 

c 


c 

c 

c 


=32  rdrhat= (i-0 .5) *dxcosa+ ( j-1) *dycosb+ (k-1) *dzcosg 

INCLUDE  ' source.h' 
field=eamplx*source 
END  IF 
GO  TO  40 

Ey  incident  field 

33  rdrhat- <i-l> *dxcosa+ ( j-0 . 5) *dycosb+ (k-1) Mzcosg 

tprime=time-rdrhat*cxnv-tdelay 

I?  ( (tprime.LT.ttrun) .AND. (tprxme.GT.O.) )  THEN 
INCLUDE  'source.h' 
field=eamply*source 
END  IF 
GO  TO  40 

Ez  incident  field 

34  rdrhat= (i-1) *dxcosa+ ( j-1) *dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay  THEM 

IF  ((tprime.LT.ttrun) .AND. (tprxme.GT.O.))  THEN 

INCLUDE  ' source . h' 
field=  eamplz*source 
END  IF 
GO  TO  40 

Hx  incident  field 

35  rdrhat= (i-1) *dxcosa+ ( j-0 .5) *dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-t delay 

IF  ((tprime.LT.ttrun) .AND. (tprxme.GT.O.))  THEN 

INCLUDE  ' source .h' 
field=hamplx*source 
END  IF 
GO  TO  40 

Hy  incident  field 

36  rdrhat= (i-0 .5) *dxcosa+ ( j-1) *dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay  . 

IF  ( (tprime.LT.ttrun) .AND. (tprxme.GT.O.) )  THE 

INCLUDE  ' source .h' 
field=hamply*source 
END  IF 
GO  TO  40 


C 

c 

c 


c 

c 

c 


c 

c 

c 


Hz  incident  field 

37  rdrhat= (i-0 . 5) *dxcosa+ ( j-0 .5) *dycosb+ (k-1) *dzcosg 

tprime=time-rdrhat*cinv-tdelay 

IF  ((tprime.LT.ttrun) .AND. (tprxme.GT.O.))  THEN 

INCLUDE  'source.h' 
field=  hamplz*source 
END  IF 
GO  TO  40 
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x-directed  total  scattered  current 

field- (hyscat  <i, j, k-l)-hyscat (i, j,k) ) *delz+ 

$  (hzscat (i,  j ,  k) -hzscat  (i, k> >  del? 

GO  TO  40 

y-directed  total  scattered  current 

field=(hxscat  <i, j, k)-hxscat <i, j,k-l) ) *delz+ 

$  (hzscat (i-lf j/ k) -hzscat (i, j, k) )  delx 
GO  TO  40 

z-directed  total  scattered  current 
field- (hyscat  <i, j, k> -hyscat (i-1^ j . k> > *delx+ 

$  (hxscat (i, j-l» k)-hxscat (i/ D/  V 

GO  TO  40 

x-directed  total  incident  current 

rdrhat= (i-0 . 5) *dxcosa+ ( j-1) *dycosb+ (k-1 .5) *dzcosg 
tpr ime=t ime-rdrhat  *  cinv-tde lay 

IF1’ Utpriine’.LT.ttrun)  .AND.  (tprime.GT.O.) )  THEN 
INCLUDE  ' source. h' 

hyinci jkl=hamply*source 

END  IF 

rdrhat- (i-0 . 5) *dxcosa+ ( j-1) *dycosb+ (k- . 5)  Mzcosg 
tpr ime-t ime-rdrhat  *  cinv-tdelay 

IF^^tprime . LT . ttrun)  .AND.  (tprime.GT.O.))  THEN 
INCLUDE  ' source .h' 

hyinci jk=hamply*source 

END  IF 

rdrhat= ( i- . 5) *dxcosa+ ( j- . 5 ) *dycosb+ (k-1 ) *dzcosg 
tpr ime-t ime-rdrhat  *  cinv-tdelay 

if  Utpri^LT.ttrun)  .AND.  (tprime.GT.O.))  THEN 
INCLUDE  ' source. h' 
hzinci jk=hamplz*source 
END  IF 

rdrhat= (i- . 5) *dxcosa+ ( j-1 .5) *dycosb+ (k-1)  *dzcosg 
tpr ime=t ime-rdrhat  *  cinv-tde lay 

IF1  Utprime  ’.  LT  .  ttrun)  .AND .  (tprime .  GT .  0 . ) )  THEN 
INCLUDE  ' source. h' 
hz inc i j lk=harop 1 z  *  s our ce 
END  IF 

field- (hyinci jkl-hyinci jk) *dely+ 

$ (hzinci jk-hzinci jlk) *delz 

GO  TO  40 


y-directed  total  incident  current 
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:43  rdrhat-  (i-1)  •d*eo»+  <  H>  • »  ^Msb+  <IC'° ' 5>  *‘i*C°39 

tpr ime=t ime-rdrhat * cinv-tdelay 

IF^'ttprime^LT  .ttrun)  .AND .  (tpr ime . GT .  0 . ) )  THEN 
INCLUDE  ' source .h' 

hxinci jk=haraplx* source 

END  IF 

rdrhat= (i-1) *dxcosa+ ( j-0 .5) *dycosb+(k-1.5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay 

IF^tprime.LT.ttrun)  .AND.  (tprime.GT.0-) )  THEN 
INCLUDE  ' source.h' 

hxinci jkl=hamplx*source 

END  IF 

rdrhat- (i-1 .5) *dxcosa+ ( j-.5> *dycosb+ (k-1) Mzcosg 
tpr ime=t ime-rdrhat  *  cinv-tde lay 

I^atprime.LT.ttrun)  .AND.  (tprime.GT.O.) )  THEN 
INCLUDE  'source.h' 
hzincil jk=hamplz*source 
END  IF 

rdrhat=(i-.5)*dxcosa+(j-.5) *dycosb+ (k-1) *dzcosg 
tpr ime=t ime-rdrhat * cinv-t delay 

S“°tpSJi°LT.ttrun) (tprime.GT.O.))  THEN 
INCLUDE  'source.h' 
hzinci jk=hamplz*source 
END  IF 

field= (hxinci jk-hxinci jkl) *delx+ 

$ (hzincil jk-hzinci jk) *delz 
GO  TO  40 


l  z-directed  total  incident  current 

=44  rdrhat= (i- . 5) *dxcosa+  ( j-1) *dycosb+ (k-0 .5) *dzcosg 

tpr ime=t ime-rdrhat *cinv  tdelay 

^((tpS^T.ttnm)  .HO.  (tprime.GT.O.))  TOO) 
INCLUDE  'source.h' 
hyinci jk=hamply*source 
END  IF 

rdrhat= (i-1 .5) *dxcosa+ ( j-1) *dycosb+ (k-0 . 5) *dzcosg 
tpr  ime=t  ime-rdrhat  *  cinv-t delay 

UtpSelLT.ttrun)  .MO.  (tprime.GT.O.))  THEN 
INCLUDE  'source.h' 
hyinciljk=hamply* source 
END  IF 

rdrhat= (i-1) *dxcosa+  ( j-1 • 5) *dycosb+ (k-0 . 5) ‘dzcosg 
tpr  ime=t ime-rdrhat  *  cinv-t delay 

hxinci jlk=0.0 
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IF  ( (tprime .LT.ttrun) .AND. (tprime.GT.O.) )  THEN 
INCLUDE  ' source .h' 

hxincij lk=hamplx*source 

END  IF 

rdrhat- (i-1) -dxcosat  <3-  5) Mycosb+ (*-0.5) *dzcos, 

tpnme= time- rdrhat 'cinv-tde  lay 

Sf  <  (tS'i^LT.ttrun) .»».  (tprime.GT.O.) .  then 
INCLUDE  ' source. h' 

hxinci jk=hamplx*source 

END  IF 

field- (hyinci jk-hyincil jk) *dely+ 

$ (hxinci jlk-hxinci jk) *delx 

RETURN 

END 

SUBROUTINE  SAMTYP (type, typtxt) 

INTEGER  type, i 
CHARACTER* 5 5  typtxt 

This  subroutine  returns  a  text* '“ing  baaed  upon  the 
ISfstlS  written° t^the  laities  Tile. 

DO  10  i-1# 55 

typtxt ' 

39. 4X.  «.  *3.  -.4,  type 

Ex  scattered  field 

typtxt-' Sensor  samples  scattered  x-directed  electric  field.' 

GO  TO  40 

Ey  scattered  field 

typtxt-' Sensor  samples  scattered  y-directed  electric  field.' 

GO  TO  40 

Ez  scattered  field 

l  typtxt-' Sensor  samples  scattered  z-directed  electric  field.' 

GO  TO  40 

Hx  scattered  field 

14  typtxt-' Sensor  samples  scattered  x-directed  magnetic  field.' 
GO  TO  40 

Hy  scattered  field 

5  typtxt-- Sensor  samples  scattered  y-directed  masnetic  field.' 

*  GO  TO  40 
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c 

c 

Hz  scattered  field 

c 

16 

typtxt-' Sensor  sanples  scattered  t-direeted  magnetic  field.' 

GO  TO  40 

c 

c 

x-directed  conduction  current 

c 

17 

typtxt-' Sensor  samples  x-directed  conduction  current.' 

GO  TO  40 

c 

c 

y-directed  conduction  current 

c 

18 

typtxt-' sensor  series  y-directed  conduction  current.' 

GO  TO  40 

c 

c 

z-directed  conduction  current 

c 

19 

typtxt-'  Sensor  samples  x-directed  conduction  current.' 

GO  TO  40 

c 

c 

x-directed  displacement  current 

c 

20 

typtxt-' Sensor  samples  x-directed  displacement  current.' 

GO  TO  40 

c 

c 

y-directed  displacement  current 

c 

21 

typtxt-' Sensor  samples  y-directed  displacement  current.' 

GO  TO  40 

c 

c 

z-directed  displacement  current 

c 

22 

typtxt-' Sensor  samples  z-directed  displacement  current.' 

GO  TO  40 

c 

c 

x-directed  total  current 

c 

23 

typtxt-' Sensor  samples  x-directed  total  current.' 

GO  TO  40 

c 

c 

y— directed  total  current 

c 

24 

typtxt-' Sensor  samples  y-directed  total  current.' 

GO  TO  40 

- 

c 

c 

z-directed  total  current 

c 

25 

typtxt-' Sensor  samples  z-directed  total  current . 

GO  TO  40 

- 

c 

c 

Ex  total  field 

c 

26 

typtxt-' Sensor  samples  total  x-directed  electric  field.' 

GO  TO  40 

c 

c 

Ey  total  field 

138 

typtxt— Sensor  samples  total  y-directed  electric  field.' 

GO  TO  40 

Ez  total  field 

typtxt-' Sensor  samples  total  z-directed  electric  field.' 

GO  TO  40 
Hx  total  field 

typtxt-' Sensor  samples  total  x-directed  magnetic  field.' 

GO  TO  40 

Hy  total  field 

typtxt-' Sensor  samples  total  y-directed  magnetic  field.' 

GO  TO  40 

Hz  total  field 

typtxt-' Sensor  samples  total  z-directed  magnetic  field.' 

GO  TO  40 

Ex  incident  field1 

typtxt-' Sensor  samples  incident  x-directed  electric  field.' 
GO  TO  40 

Ey  incident  field 

typtxt-' Sensor  samples  incident  y-directed  electric  field.' 
GO  TO  40 

Ez  incident  field 

typtxt-' Sensor  samples  incident  z-directed  electric  field.' 
GO  TO  40 

Hx  incident  field 

typtxt-' Sensor  samples  incident  x-directed  magnetic  field. 
GO  TO  40 

Hy  incident  field 

typtxt-' Sensor  samples  incident  y-directed  magnetic  field. 
GO  TO  40 

Hz  incident  field 

typtxt-  Sensor  samples  incident  x-directed  magnetic  field, 
x-directed  total  scattered  current 

typtxt-  Sensor  samples  x-directed  total  scattered  current 
GO  TO  40 
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39 


c 

c 

c 


41 


c 

c 

c 


42 


c 

c 

c 


43 


c 

c 

c 


y-directed  total  scattered  current 


typtxt-' Sensor  sables  y-directed  total  scattered  current.- 
GO  TO  40 


z-directed  total  scattered  current 


ioc  ^-directed  total  scattered  current, 
typtxt-' Sensor  samples  z-direcrea 

GO  TO  40 


x-directed  total  incident  current 


la.  v-riirected  total  incident  current.' 
typtxt=' Sensor  samples  x  directed 

GO  TO  40 


y-directed  total  incident  current 


typtxt-- sensor  samples  y-directed  total  incident  current.' 
GO  TO  40 


z-directed  total  incident  current 


44 

40 


typtxt- Sensor  saxples  t-directed  total  incident  current.' 

GO  TO  40 

RETURN 

END 
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SUBROUTINE  FINFF 

INCLUDE  'main.h'  ...... 

REAL  uphi,  utheta,  wphi,  wtheta,  ephi,  etheta,  ephun,  ethin, 

$exi, eyi, ezi 
INTEGER  m 

This  subroutine  finishes  the  near-to-far  field  transformation 
by  transforming  the  U  and  W  vector  potentials  to  far-field 
electric  field  (Etheta  and  Ephi)  components. 


..*★★★★★*★★★★★*★★******** 


Local  variable  dictionary 

ephi=far  field  electric  field  component  in  phi  direction 
ephiin=far  field  incident  electric  field  in  phi  direction 
etheta=far  field  electric  field  component  in  theta  direction 
ethin=far  field  incident  electric  field  in  theta  direction 
exi=incident  x-directed  electric  field  at  center  of  space 

eyi=incident  y-directed  electric  field  at  center  of  space 

ezi=incident  z-directed  electric  field  at  center  of  space 

m=loop  counter  over  time  bins  of  vector  potential  array 
uphi=far  field  vector  potential  U  in  phi  direction 
utheta=far  field  vector  potential  U  in  theta  direction 
wphi=far  field  vector  potential  W  in  phi  direction 
wtheta=far  field  vector  potential  w  in  theta  direction 


First  compute  the  direction  cosines  for  far  field  observation 
point . 

cosphi=cos (phi*degrad) 
sinphi=sin (phi*degrad) 
costh=cos (theta*degrad) 
sinth=sin (theta*degrad) 

Open  the  farfield  info  file 

OPEN  (22,FILE='FZINFO.DAT' ) 

REWIND  22 

Write  header  information  for  fzproc  code 

WRITE  (22,*)  delx,dely, delz,delt,tsteps,  1 
WRITE  (22,*)  phi,-theta 

CLOSE (22) 

Compute  distance  term  for  center  of  space 

rdrhat=xc*cosa+yc*cosb+zc*cosg 

Open  the  far  field  data  file 
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OPEN  (2 1,FILE=' FZOUT3D.DAT' ) 
REWIND  21 


DO  20  m=l,tsteps 

C 

c  Compute  tprime  variable  for  source  function 

c 

tprime=AMAXl  (0 . 0,  REAL  (m-1)  *delt-rf  *cinv) 
tprime=tprime-rdrhat * cinv-tdelay 
c 

c  Compute  incident  electric  field  terms 

c 

IF  ( (tprime. LT.ttrun) .AND. (tprime. GT.O.))  THEN 
INCLUDE  ' source. h' 
exi=eamplx*source 
eyi=eamply*source 
ezi=eamplz* source 
ELSE 

exi=0 . 0 
eyi=0.0 
ezi=0 . 0 
END  IF 

Transform  incident  field  to  spherical  components 
c 

ethin= (exi*cosphi+eyi*sinphi) *costh-ezi*sinth 
eph i in=— ex i *  s inph i+eyi*co sphi 

c  write (*,*)  'exi=' ,  exi 

c  write (*,*)' sinphi=' , sinphi 

c  write (*,*)' ey  i=' ,  eyi 

c  write (*,*)' cosphi=' , cosphi 

c  write (*,*) 'ethin=' ,ethin 

c  write  (*,*)'  ephiin*=' ,  ephiin 

c 

c  Now  transform  the  Cartesian  vector  potentials  into  spherical 

c  '  vector  potentials  according  to  the  Cartesian  to  spherical 

c  vector  transformation 

c 

utheta= (uandw ( 1, m) *cosphi+uandw (2 , m) *sinphi) *costh- 
$uandw ( 3 , m) *  s inth 

c  write (*,*)' utheta=' , utheta 

c  write(*,*)'ethin=',ethin 

c  write (*,*)'ephiin=', ephiin 

c 

c  Now  transform  the  Cartesian  vector  potentials  into  spherical 

c  vector  potentials  according  to  the  Cartesian  to  spherical 

c  vector  transformation 

c 

utheta= (uandw (l,m)  *cosphi+uandw(2,m) *sinphi) *costh- 
$uandw ( 3 ,  m) *  s inth 

c  write (*,*) 'utheta=' , utheta 

uphi=-uandw ( 1 ,  m)  *sinphi+uandw (2, m) *cosphi 
c  write (*,*)' uphi=' , uphi 

wtheta= (uandw (4,m) *cosphi+uandw (5,m) *sinphi) *costh- 
$uandw ( 6 , m) *  s inth 

c  write (*,*)' wtheta=' , wtheta 

wphi=-uandw(4,m)  *sinphi+uandw(5,m) *cosphi 
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c 

c  Compute  far  field  electric  field  components 

c 

etheta=-etaO*wtheta-uphi 
c  write (*,*)' etheta=' , etheta 

ephi=-etaO*wphi+utheta 
c  write(*,*)'ephi=',ephi 

c  read(*,*) 

c 

Write  data  to  the  far  field  data  file 

WRITE  (21,*)  m, ephi, etheta, ephiin, ethin 
c 

20  CONTINUE 

CLOSE  (UNIT=21) 

RETURN 

END 
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c  Include  file  'farfld.h 

c  This  file  contains  all  of  the  variables  used  for  the  near 
c  to  far  field  transformation. c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c  ■ 

c 

c 

c 

c 

c. 

c 


Variable  dictionary 
f fc=far  field  multiplyin9  constant 

ffield=far  field  integration  surface  field  components 
fftime=real  time  used  to  compute  retarded  time 
fpcdt=constant  multiplier  =  1/ (4*pi*c*deltat) 
ilow=i  index  of  lower  integration  surface  with  normal  ax 
inuwx=index  for  uandw  array  for  integration  surfaces  with 
unit  normal  of  +/-  a_x 

inuwy= index  for  uandw  array  for  integration  surfaces  wit 
unit  normal  of  +/-  a_y 

inuwz=index  for  uandw  array  for  integration  surfaces  with 
unit  normal  of  +/-  a__z  .  _  __ 

iup=i  index  of  upper  integration  surface  wit^no^i1+a-xv 
ilow=i  index  of  lower  integration  surface  with  normal  -a_y 
of  upper  integration  surface  with  norml  «  y 
klow=k  index  of  lower  integration  surface  with  normal  a  z 
kup=k  index  of  upper  integration  surface  with  normal  +a  V 
rf=maximum  distance  from  center  of  space  to  a  point  on  the 

integration  surface  , 

tretx=retarded  time  delay  for  integration  surfaces  with  unit 
normals  in  +/-  a_x  directions  ,  .. 

trety=retarded  time  delay  for  integration  surfaces  with  unit 
normals  in  +/-  a_y  directions  ,  .. 

tretz=retarded  time  delay  for  integration  surfaces  with  unit 
normals  in  +/-  a_z  directions 
tretdt=retarded  time  divided  by  deltat 

uandw=vector  potential  array  (contains  both  u  and  w  vector 
potentials) 


I******************************************************************* 

REAL  tretx, trety/ tretz, f ftime, f f c, f field, tretdt,  rf , 

$fpcdt, uandw  .  _ 

INTEGER  inuwx, inuwy, inuwz, ilow, jlow, klow, lup, ^up, kup 

COMMON/FAR/tretx (0 :ny-9, 0 :nz-9, 0:2) , trety (0 :nx  9, 0 :nz  9,  .  ) , 

$tretz (0 :nx-9, 0 :ny-9, 0:2), uandw (0:6,0 :mmax) , f ftime (0.4),  f f c, 

Sf f ield (0: 4), tretdt, fpcdt,rf 

COMMON /FARSH/ inuwx (0:4) , inuwy  (0 : 4) , inuwz (0:4), ilow, ]low, klow, 
$iup, jup, kup 
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c 

SUBROUTINE  FARFLD 
C 

INCLUDE  'main.h 

INTEGER  i,  j,  k,  iin,  jin,  kin,  muw 
INTEGER  m 


c 

c 

c 


This  subroutine  updates  the  far  field  vector 
potentials  U  and  W. 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

-i=rell  coordinate  number  in  x  direction 
iin= index  into  retarded  time  delay  arrays  for  x 

di«ct£n  and  also  index  tor  field  exponents  on 
integration  surfaces  with  unit  normal  +/-  a_x 
inuw=index  into  vector  potential  array  uandw  to 

update  the  correct  vector  potential  component 
(ux,  uy,  uz,  wx,  wy  or  wz) 
j-cell  coordinate  number  m  y  direction 
^  -i  n= index  into  retarded  time  delay  arrays  for  y 
1  direction  and  also  index  for  field  components  on 
integration  surfaces  with  unit  normal  +/-  a_y 
k=cell  coordinate  number  in  z  direction 
kin=index  into  retarded  time  delay  arrays  for  z 

direction  and  also  index  for  field  components  on 
integration  surfaces  with  unit  normal  +/-  a  z 
lfld=loop  counter  over  the  four  vector  potentia 

components  to  be  updated  .  ,  rrav 

m=time  bin  index  for  far  field  vector  potential  array 

° ********************************************************* 
c 

0 

ept  the  far  field  time  variables  first 
The  first  2  array  locations  are  for  magnetic  fie^ds 
so  therefore  are  1/2  time  step  off  from  the  electric 

fields. 


fftime (l)=time-delto2 
f ftime (2 ) =time-delto2 
f ftime ( 3 ) =time-delt 
-f-p t  i  me  ( 4 )  -t  ime-delt 


c 

c 

c 

c 


c 

c 


Start  integration  on 
Start  with  the  faces 


faces  with  unit  normals  +/-  a_x. 
with  unit  normal  — 


ffc=dely*delz*fpcdt 

iin=ilow 
DO  40  i=l/ 2 

DO  30  k=klow,kiip 
kin=k-klow+l 
DO  20  j— jlowr  jup 
jin=j-jlow+l 

Compute  the  four  field  components  tangent  to  the 
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o  o 


c 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


.  .  „-n  The  field  component  is  assumed 

t^be'locaced  at 'the  center  of  the  cell. 

ffield(l)-0.25*ffc*  (hzscat  (iin, ,  j.  W  thzeoat  (iin,  ),MU  * 

$hzscat  ,lin-l.  j.  mhf|cat  <Un-l.  >  (ii>  >  „  *hyscat  (1in,  )♦!. » - 

Shyscat  Uin-1.  i.  hHhyscat  (iin-l^+^h) )  ^  ^  ^  j 

f  field  (4)  “0 . 5*f f c*  (eyscat  (nn,  j, k)+eyscat  m  J, 

nnH.te  the  corresponding  vector  potential  component 
STtirnTbin  usin?  the  first  field  component. 

tretdt-Tf ftime  d>  +tretu ( jin, kin,  i) )  *dtinv 
uandw  (inuwfra-1) -uandw  (inuw,ra-l>  +  (0 . 5-tretdt+m>  * 
“'““uandv  (inuw.m)  -uandw  (inuw,  m)  *2 . 0*  (tretdt-m)  * 

^££ielduandw(inuw,m+l)=uandw  (inuw,m+l)-  (0 .5+tretdt-m)  * 

$f field(l) 

nndate  the  corresponding  vector  potential  component 
2d  time  bin  nsin?  the  second  field  component. 

tretdt-tfftime (2) +tretx ( Jin,  kin,  i) ) *dtinv 

m=lNT (tretdt+0.5)  ,n  s-tretdt+m) * 

uandw  (inuw,  m-1) =uandw  (xnuw,  m-1)  +  (0.5  tretat  mj 

? ££ielduand» (inuw,m) -uandw (inuw, m)  +2 . 0*  (tretdt-m)  • 

^££ielduandw  (inuw, m+D -uandw (inuw, m+l)-(0. 5+tretdt-m)  * 

$ffield(2) 

update  the  corresponding  vector  potential  component 
anytime  bin  using  the  third  field  component. 

inuw=inuwx (3)  * a  nv 

tretdt= (fftime  (3) +tretx ( jin,  kin, 

m=INT (tretdt+0.5)  n  c;_i-retdt+m)  * 

uandw (inuw,  m-1) =uandw (inuw,  m-1) +  (0.5  tretdt 

$f  f leld^ndw  (inuw, m)  =uandw  (inuw,m)  +2.0*  (tretdt-m)  * 

S££ielduindw  (inuw, mil) -uandw (inuw. mil)-  (0 . 5«retdt-m,  • 
$ffield(3) 

update  the  corresponding  vector  potential  component 
2^!me  bin  using  the  fourth  field  component. 

tretdt-lf f time (4) ttretx (jin,  kin,  i) ) *dtinv 
m=INT (tretdt+0.5)  n  5_tretdt+m)  * 

uandw (inuw, m-1) =uandw (inuw, m-1) +  (0.5  tretat 

S££lelduandw  (inuw.m)  -uandw  (inuw.m)  +2 . 0*  (tretdt-m)  * 


146 


20 

30 


c 

c 

c 

c 


40 


c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


Sf  £ield^dv  (inuw,m+l)  -uandw  <inu»,m+l>  -  (0 . 5«retdt-«>  * 

$ffield(4) 

CONTINUE 

CONTINUE 

Mr,w  switch  to  face  with  unit  normal  +  ax,  so  the 
HnXx  and  far  field  constant  must  be  changed. 

ffc=-ffc 

iin=iup 

CONTINUE 

Next  integrate  on  faces  with  unit  normals  */-  ej- 
Start  with  the  faces  with  unit  normal  _y. 

ffc=delx*delz*fpcdt 
jin= jlow 
DO  80  j=l, 2 

DO  70  k=klow, kup 
kin=k-klow+l 
DO  60  i=ilow, iup 

comoute  the  four  field  components  tangent  to  the 
integration  cell.  The  field  component  is  assumed 
to  be  located  at  the  center  of  the  cell. 

f field a°*-0 .25*ffc* (hzscat (i, jin, k) +hzscat (i, jin, k+1) + 
$hzscat  (i,  jin-1,  •  * j in, k)  +hxscat  <i+l,  jin,  W  + 

$hxscat^i^ jin-1, (ezscatli^ jin!  k)  +ezscat  (i*1'  3in' \ 

f f ield(4)  =-0.5*ffc*  (exscat  (i,jm,k)+exscat  (i.  Din, k 

Update  the  corresponding  vector  potential  component 
aSd  time  bin  using  the  first  field  conponent. 

inuw=inuwy  (1) 

tretdt=  (fftime  (1)  +trety  (nn, kin,  3) )  dtinv 

m=INT  (tretdt+0 .5)  s-t-rPtdt+m)  * 

uandw (inuw, m-1) =uandw (inuw, m-1)  + (0.5  tretdt+m) 

$f  f leld^ndw  (inuw,  m)  =uandw  ( inuw, m)  +2 . 0*  (tretdt-m)  * 

$f f i6ldiandw (inuw,  m+1) =uandw (inuw, m+1) - (0 . 5+tretdt-m) * 
$ffield(l) 

Update  the  corresponding  vector  potential  component 
a5d  time  bin  using  the  second  field  component. 

SSSSS L  (2)  +trety  (iin,  kin,  j ) )  Mtinv 

uaSJ  (inlwfmll)  =uandw  (inuw, m-1)  +  (0 . 5-tretdt+m)  * 

$ffield^ndw(inuw,m)=uandw(inuw,m)  +2.0*  (tretdt-m)  * 

$f field (2) 
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c 

c 

c 

c 


c 

c 

c 

c 


60 

70 


c 

c 

c 

c 


80 


c 

c 

c 

c 


c 

c 

c 

c 

c 


uandw  < inuw, mil .  -uandw  (inuw.  mil  >  -  (0 .  Mtretdt-»)  * 

$ffield(2) 

tretdt-"f  ftime  (3)  itrety  Win.  kin,  j) )  -dtinv 

^andw  ( inuwfm-1 )  -uandw  (inuw,  m-l>  +  ( 0 .  5-tretdt+m)  * 

St£lel<iuaU  (inuw.m)  -uandw  (inuw. m>  +2 . 0-  (tretdt-m,  * 

S££ielau»idw  (inuw.  mil) -uandw  (inuw.  mil)  -  (0 . 5itretdt-m>  - 
$ffield(3) 

tretdt-'tff  t  ime  (4 )  +trety  (iin,  kin,  j) )  -dtinv 

m=INT  (tretdt+0 .5)  m  ■s-tretdt+m)  * 

uandw  (inuw,  m-1)  =uandw  (inuw,m-l)  +  (0.5  tretat 

$££leld^dw  (inuw. ml  -uandw  (inuw,  m> « .  0-  (tretdt-m)  - 

$££ield^ndw  (inuw,  mil)  -uandw  (inuw.  mil)  -  (0 .  Sitretdt-m)  * 

$ffield(4) 

CONTINUE 
CONTINUE 

•4.  -t-rn  farp  with  unit  normal  +  ay,  s0 

"“index  2d  tar  “eld  constant  must  be  changed. 

ffc=-ffc 
jin=jup 
CONTINUE 

Finally  integrate  on  faces  with  unit  normals  i/-  a.z. 

Start  with  the  faces  with  unit  norral  -  a_t. 

f  f  c=de lx  * de ly *  f P cdt 
kin=klow 
DO  120  k=l, 2 

DO  110  j= jlow, jup 
jin=j-jlow+l 
DO  100  i=ilow, iup 

_  i-o  four  field  components  tangent  to  the 

integration  Si.  The  fie?d  component  is  assumed 
to  be  located  at  the  center  of  the  cell. 

fSldlS^S-ffc-  (hyscat  ,i.  j.  kin,  ihyscat  (i.  Jil.  kin)  ♦ 
Shyscat  (i^j,^kin-l^+hyscat  Uo+l.^kin^l))kin,ihxsCat  (i+i,  j,kin)i 

Shxscat  (i^jAin-lKhxscat  (i+l^>kin,  1)  J.in)+eyscat  (it!,  j,  kin) ) 
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ffield(4)=0 .5*ffc* (exscat (i, j,kin)+exscat <i, j+l,kin) > 

UDdate  the  corresponding  vector  potential  component 
aSftime  bin  using  the  first  field  component. 

tretdtSTf ftime  (1)  +tretz  (iin,  jin,  k) )  *dtinv 
m=INT  (tretdt+0 .5)  e;_+retdt+m)  * 

uandw  (inuw, m-1) -uandw  (inuw, m^l)  + (0-5  ttetdt 

?££ieldiandw  (inuw,  m)  -uandw  (inuw, »  *2  ■  0*  (tretdt-m)  * 

$£UeldulL«  (inuw,  mil)  -uandw , inuw.  mil)-  <0 . 5itretdt-m,  * 

$f field (1) 

no date  the  corresponding  vector  potential  component 
Srtima  bin  uaing  the  second  field  component. 

tretdt-Tf  ftime (2) itrett (iin, jin, k) ) *dtinv 

m=INT  (tretdt+0. 5)  ..  .,n  s_tretdt+m) * 

uandw (inuw, m-1 ) =uandw ( inuw,  m-1 )  +  ( 0 . 5  tretat 

$ f f re ld^^dw ( inuw f  m)  =uandw ( inuw , m)  +2.0*  (tretdt-m)  * 

$££ield^ndw  (inuw.mil)  -uandw  (inuw.mil)-  (0 . 5itretdt-m,  ♦ 

$f field(2) 

undate  the  corresponding  vector  potential  component 
SftLe  biS  using  the  third  field  component. 

SeWt-“f  ftiie  (3)  itretx  (iin,  jin,  k) )  *dtinv 
m=INT (tretdt+0. 5)  *_i-retdt+m)  * 

uandw (inuw, m-1) =uandw (inuw, m-1) +(0.5  tretdt 

“  £ieldu^dw  (inuw.m)  -uandw  (inuw.m)  +2 . 0*  (tretdt-m)  • 

SffieldO)^ m+1) ,uanciv, (inuw, mil) - (0 . 5ttretdt-m)  * 

$ffield(3) 

Update  the  corresponding  vector  potential  component 
and  time  bin  using  the  fourth  field  component. 

inuw=inuwz (4)  .  . 

tretdt=  (f ftime  (4)  +tretz  (iin,  jm,  k) ) 

m=INT (tretdt+0. 5)  . .  .,n  s-tretdt+m) * 

uandw (inuw, m-1) =uandw (inuw, m-1) +(0.5  tretat 

$f  f  le^andw  (inuw, m)  =uandw  <inuw,m)  +2.0*  (tretdt-m)  * 

$f  f  leld^ndw  (inuw, m+1)  =uandw  (inuw, m+1) -  (0 . 5+tretdt-m)  * 

$f field (4) 

00  CONTINUE 

10  CONTINUE 
close (10) 

Now  switch  to  face  with  unit  normal  +  a_z,  so  the 
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k  index  and  far  field  constant  must  be  changed 

ffc=-ffc 
kin=kup 
120  CONTINUE 
RETURN 
END 
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C234567 

SUBROUTINE  ERRCHK 

*»*" iend- 3end- kend 


C 

c 

c 

c 

c 

c 

c 

c 


.  .  -Vcrits  for  various  errors  associated  with 
This  subroutine  checks  ro 

running  an  FDTD  problem. 

Check  to  see  if  any  portion  of  the  ohiect  lies  outside  the 
far  field  integration  surface. 

IF  (ffldon)  THEN 
ibeg=nx 
jbeg=ny 
kbeg=nz 
iend=0 
jend=0 
kend=0 

DO  500  k=2, nzl 
DO  400  j«2,nyl 

D0IF°uS'(i?lk)  .HK.O)  .OR.  (id2(i,  j,k)  .NE. 0)  .OR. 

$  (id3  (i,  j,  kKNE .  0)  l  THEN^ 

jbeg=j 
kbeg=k 
iend=i 
jend=j 
kend=k 


(i.LT.ibeg) 
(j.LT. jbeg) 
(k.LT.kbeg) 
(i.GT.iend) 
(j.GT. jend) 
(k.GT.kend) 


300 

400 

500 


IF 
IF 
IF 
IF 
IF 
IF 
END  IF 
CONTINUE 
CONTINUE 
CONTINUE 

IF  ( (iend.GE.iup) )  THEN 
WRITE  (15,*) 


*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
WRITE  (15 
errflg=true 

END  IF 

IF  ( ( jend.GE . jup) )  THEN 
WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 

WRITE  (15,*) 


, Error!  The  extent  of  the  object  is  > 

’  the  upper  limit  of  the  far  field  ^ 

'transformation  integration  surface  in 

'the  i  direction.  Please  increase  the 

' parameter  nx  in  file  setup. h  to 

'The  far  field  integration  surface  is  located 

,at  i=' , iup, '  while  the  object  extends  to 

' i=' , iend 


'Error!  The  extent  of  the  object  is  >- 
' the  upper  limit  of  the  far  field  ^ 
'transformation  integration  surface  in 
'the  j  direction.  Please  increase  the 
'parameter  ny  in  file  setup. h  to  C0I^ei^ed, 
'The  far  field  integration  surface  is  located 
'at  j=',jup,'  while  the  object  extends  to 
' j=' , jend 
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WRITE  (15,*) 
errflg=true 

END IF  „„„„ 

IF  ( (kend.GE.kup) )  THEN 

S  ‘i!:*’)  'Error!  The  extent  o^the^object  is  >-' 

S  lit'.  *>  '  transformation  integration^surface^in' 

WRITE  (15,*)  'the  k  direct 10  •  setup.h  to  compensate.' 

Site  (is'*)  'Thenar* field  integration  surface  is  located' 

S3  (it,*)  'at  k=',kup,'  While  the  object  extends  to 
WRITE  (15,*)  ' k— ' , kend 
WRITE  (15,*)  ' 
errflg=true 
END  IF 

IF  ( (ibeg.LE.ilow) )  THEN 

££  ''Error,  The  -tent  of  the  object  is  <-' 

“5  IS:!  ' transformation1  integration  surface  in; 

ES  U*>  -the  i  direction.  Please  increase  ^^te.. 

““  !!!'  :j  'The^a^field^ntegration^surface  is  located' 

S  (“:♦)  'at  i-'.iW  while  the  object  extends  to 

WRITE  (15,*)  ' i=' , ibeg 
WRITE  (15,*)  '  ' 
errflg=true 
END  IF 

IF  ( ( jbeg.LE. jlow) )  THEN 

S  'Error!  The  extent  of  the  object  is  <-' 

““  lit:*.!  ' t rans format ior^ integrat ion  surface  £ 

SS  {»:•’)  'the  j  frection.  Please  increase  tbeensate  . 

=£  !“'  I’  :?^refi«yid1nteirarionPsurface  is  located' 
S  <“:*)  'at  j-'.jlow,'  while  the  object  extends  to 

WRITE  (15,*)  ' 3=' r jbeg 
WRITE  (15,*)  '  ' 
errflg=true 
END  IF 

IF  ( (kbeg.LE.klow) )  THEN 

a':**!  ''Error,  The  extent  of  the  object  is  <-' 

SS  IS:-)  ■  SnsfoSat!S;  integration  surface  in; 

WRITE  (15  *)  'the  k  direction.  Please  increase  t  , 

h  'parameter  ns  in  file  setup.h  to  compensate 
miTE  15  *!  'The  far  field  integration  surface  is  located 
Site  (15,*)  'at  k=',klow,'  while  the  object  extends 
WRITE  (15,*)  ' k=' , kbeg 
WRITE  (15,*)  '  ' 
errflg=true 
END  IF 
END  IF 


Check  the  point  source  feed  location 
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c 


IF  (pntsrc)  THEN 
IF  ( (iptsrc. LE 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
errflg=true 
END  IF 

IF  ( ( jptsrc.LE. 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
errflg=true 
END  IF 

IF  ((kptsrc.LE 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
errflg=true 
END  IF 

IF  ( (fdtype.NE. 
$ (fdtype.NE.' z' ) ) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 
WRITE  (15,*) 

T.TDTTTT  _ 


1 ) . OR . ( iptsrc . GE . nx) )  THEN 

r  r 

'Error!  The  i  location  for  the  point', 
'source  is  incorrectly  specified.  Its 
' current  value  is  iptsrc=' , iptsrc  , 
'Please  correct  the  value  in  either, 
'the  file  defaults. f  or  userdefs.f. 


1) .OR. ( jptsrc.GE.ny) )  THEN 

t  / 

'Error!  The  j  location  for  the  point', 
'source  is  incorrectly  specified.  Its 
' current  value  is  jptsrc=' , jptsrc  , 
'Please  correct  the  value  in  either, 
'the  file  defaults. f  or  userdefs.f. 


1) .OR. (kptsrc.GE.nz) )  THEN 

f  / 

'Error!  The  k  location  for  the  point', 
'source  is  incorrectly  specified.  Its 
'current  value  is  kptsrc=' ,kptsrc  , 
'Please  correct  the  value  in  either, 
'the  file  defaults. f  or  userdefs.f.' 


'x' ) .OR. (fdtype.NE.'y' ) .OR. 

THEN 

/  f 

'Error!  The  feed  type  for  the  point' 
'source  is  incorrectly  specified.  Its' 
' current  value  is  fdtype-' , fdtype  , 
'Please  correct  the  value  in  either 
'the  file  defaults. f  or  userdefs.f. 


errflg=true 
END  IF 
END  IF 

IF  (errflg)  THEN  f 

WRITE  (15,*)  'Execution  halted. 
CLOSE  (UNIT=15) 

STOP 

ELSE  , 
WRITE  (15,*)  'No  errors  reported. 

CLOSE  (UNIT=15) 

END  IF 

RETURN 

END 
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C234567 
c 


SUBROUTINE  UPDEXS 

This  subroutine  updates  the  *  component  of  scattered 
electric  field. 


INCLUDE  'main.h' 
INTEGER  i,  j/fc 

'* ********** *********** 


c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
i=cell  coordinate  number  in  y  directio 
k=cell  coordinate  number  in  z  direction 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


DO  30  k=2,nzl 
DO  20  j=2, nyl 
DO  10  i=l, nxl 

Get  the  material  type 

if (idl(i,  j/k) .eq.O)  then 

Free  space  update  equation 

exscat (i, j, k) =exscat  <i, j,  k)  +  (hzscat (i,  jr  *>  “ 

$hzscat (i, j-1/ k) ) *dt°edy-  i\\*dtoedz 
$ (hyscat (i, j, k) -hyscat (i, 3, k-1) )  dtoedz 

elseif (idl<i, j,k) .eq.l)  then 

Perfect  conductor 

exscat (i, j»k) =0.0 

rdrhat"(i-o'-5!*dxcosa+(j-l>  *dycosb+(k-l) *dzcosg 

INCLUDE  ' source. h' 

exscat (i, j, k)=-eamplx* source 

END  IF 
else 

Lossy  dielectric  materials 

exscat  (i,  j,  k)  =exscat  (i,  j,  k)  *eold (idl  <i,  >k) )  + 

J8S S&?:S»8:rfcS!328S&iSr 

S^i?ST^S«  A)  *dycosb+(h"l)  -dxoosg 
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INCLUDE  ' source .h' 

INCLUDE  'ddtsrce.h' 

exscat  (i,  j,k)=exscat  (^.^  k)  -earnplx 
$ (einc (idl (i, j, k) ) *source+ddtein (ldl (i,  j,  k) )  ddtsrc) 
END  IF 

endif 

10  CONTINUE 

20  CONTINUE 

30  CONTINUE 
RETURN 
END 

SUBROUTINE  UPDEYS 

This  subroutine  updates  the  y  component  of  scattered 
electric  field. 

INCLUDE  'main.h' 

INTEGER  i,j,k 


c 

c 


c 

c 

c 

c 

c 

c 


Local  variable  dictionary 

i=cell  coordinate  number  in  x  direction 
j=cell  coordinate  number  in  y  direction 
k=cell  coordinate  number  in  z  direction 


******************* 


c 

c 

c 

c 

c 

c 


c 

c 

c 


DO  30  k=2,nzl 
DO  20  j“l,nyl 
DO  10  i=2,nxl 

Get  the  material  type 

if  (id2(i, j,k) .EQ.0)  then 

Free  space  update  equation 

eyscat (i, j, k)=eyscat (i, j, k)-(hzscat (i, j,k)- 
$hzscat(i-l, j,k))*dtoedx+  , 

$(hxscat(i, j,k)-hxscat(i, j,k  1))  dtoedz 

elseif  (id2 (if jf k) . eq. 1)  then 

Perfect  conductor 

eyscat (i, j,k)=0.0 

IF  ( .NOT.plwave)  GO  TO  10 

rdrhat= (i— 1) *dxcosa+ ( j-0 . 5) *dycosb+ (k-1) *dzcosg 

tprime=time-rdrhat*cinv-tdelay  tptrm 

IF  ( (tpr ime . LT . ttrun) . AND . (tprime . GT . 0 . ) )  THEN 
INCLUDE  ' source. h' 
eyscat (i, j, k)=-eamply*source 
ENDIF 
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else 


c 

c 

c 


Lossy  dielectric  materials 


10 

20 

30 


c 

c 

c 

c 


eyscat  (i,  j,  M  -eyscat  (i,  j,  k> -eold  Ud2  (a. 0^1 ) 

5  (hzscat  (i.  j,  M-hzscat  (1-1.  j.  k  -dhdx  Ud2  U.  ,  ' 

$ (hxscat (i,  j,  k) -hzscat  U, J.  k-l> )  dhdz  dd2 (i, 3, 

^  (iP-»  ~+ <?-S°5.  *dycosb+  Ck-1>  Mzcos, 

INCLUDE  ' source. h' 

INCLUDE  ' ddtsrce.h' 
pvscat (i, ir k)=eyscat (i, jr k)-eamply 
$ (einc (id2 (J j, k> ) *source+ddtein (id2 <i,  j,  k) ) *ddtsrc) 

END  IF 

endif 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  UPDEZS 

This  subroutine  updates  the  z  component  of  scattered 
electric  field. 

INCLUDE  'main.h' 

INTEGER  i,  j,k 


Local  variable  dictionary 


c 

c*** 
c 
c 

c  i=cell  coordinate  number  in  x  direction 

c  i=cell  coordinate  number  in  y  direction 

c  k=cell  coordinate  number  in  z  direction 


c 

c 

c 

c 

c 

c 


************* 


c 

c 


DO  30  k=l,nzl 
DO  20  j=2,nyl 
DO  10  i=2,nxl 

Get  the  material  type 

if  (id3(i‘,  j,k)  -eq.O)  then 

Free  space  update  equation 

ezscat (i, j, k) =ezscat (i, j,  k)  - (hxscat (i, j,k)- 

$hxscat(i,j-l,k))*dtoedy+ 

$ (hyscat (i, j, k)-hyscat  (i-l, 3, k) )  dtoedx 

elseif  (id3(i,j,k) .eq.l)  then 
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Perfect  conductor 

ezscat (i, j,  k)=0 . 0 

rdrhat='(i-lT*dxcosa+ ( j-1) *dycosb+ (k-0 .5) *dzcosg 

rTutprime .  LT^ttrun)  . AND .  (tprime .  GT .  0 . ) )  THEN 
INCLUDE  'source.h' 
ezscat  (i,  j, k)  —eamplz ‘source 
END  IF 


Lossy  dielectric  materials 

ezscat  <i,  j,  k)  =ezscat  (i,  j^)  *eold(id3  <i,  j,  k> ) - 

$  (hxscat  (i,  j,  k)-hxscat  (a.,  j-1,  J>  J  ^  jj'  V  k) } 

$  (hyscat  (i,  j,  k) -hyscat  U-l,  D, k) )  dhdx Ud3  (i,  ]<k) 

TF  (  NOT  d1w3.VG)  GO  TO  10 

rdrhat= (i-1) *dxcosa+ ( j-1) ‘dycosb+ (k-0 .5) *dzcosg 

tprime=time-rdrhat*cinv-tdelay 

IF  ( (tprime. LT.ttrun) .AND. (tprime. GT.O.))  THEN 
INCLUDE  'source.h' 

INCLUDE  'ddtsrce.h' 
ezscat (i, j,  k) =ezscat (i, j , k) -eamplz 
$ (einc (id3 (i, j, k) ) ‘source+ddtein Ud3  Cl, D, k) )  ddtsrc) 

END  IF 


10 

20 

30 


endif 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 
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SUBROUTINE  DEFLTS 
INCLUDE  'main.h' 

INTEGER  m 

This  subroutine  sets  up  the  defaults  for  source  pulse  function 
and  all  of  the  necessary  parameters  for  its  specification. 

*************************************************************** 

Local  variable  dictionary 

m=loop  counter 

*************************************************************** 

Gaussian  pulse 

IF  (gauss)  THEN 
IF  (tspec)  THEN 

Time  specifications 

IF  (rise)  THEN 
trise=20 . 0*delt 
ELSE 

pwidth=51 . 0*delt 
ap=0*5 
END  IF 

ELSE IF  (fspec)  THEN 

Frequency  specification 

fup=c/ (10 . 0*AMAX1 (delx,dely, delz) ) 
adb=80 . 0 
END  IF 

ELSE IF  (banlim)  THEN 

Bandlimited  pulse 

IF  (tspec)  THEN 

Time  specifications 

IF  (rise)  THEN 
trise=20.0*delt 
ELSE 

pwidth=51 . 0*delt 
ap=0 . 5 
END  IF 

ELSE IF  (fspec)  THEN 

Frequency  specification 
f low=0 . 0 

bw=2 . 0*c/ (10 . 0*AMAX1 (delx, dely, delz) ) 
adb=140 . 0 
END  IF 


ELSEIF  (hypsec)  THEN 
c 

c  Hyperbolic  secant  pulse 

c 

IF  (tspec)  THEN 
c 

c  Time  specifications 

c 

ah=0 . 5 

c  ah=l. 0/EXP (1.0) 

pwidth=51 . 0*delt 
ELSEIF  (fspec)  THEN 
c 

ah=l. 0/EXP (1.0) 
pwidth=51 . 0*delt 
c 

WRITE  (15,*)  '  ' 

WRITE  (15,*)  'Error!  The  flag  fspec  is  set  to  true  for  the' 
WRITE  (15,*)  'hyperbolic  secant  pulse.  This  pulse  can  only' 
WRITE  (15,*)  'be  specified  in  the  time  domain  and  the  flag' 
WRITE  (15,*)  'tspec  must  be  set  to  true.' 

WRITE  (15,*)  'Make  sure  all  parameters' 

WRITE  (15,*)  'for  the  hyperbolic  secant  pulse  are  defined.' 
errflg=true 
END  IF 

ELSEIF  (rsine)  THEN 
c 

c  Raitped  sinusoid  function 

c 

f 0=1.0/ (20. 0*delt) 
cycles=10 
ttrun=tsteps*delt 
ELSEIF  (Step)  THEN 
c 

c  Unit  step  function 

c 

IF  (tspec)  THEN 
IF  (rise)  THEN 
trise=40 . 0E-12 
ELSE 

trise=40.0E-12 
WRITE  (15,*)  '  ' 

WRITE  (15,*)  'Error!  The  flag  rise  for  specifying  the' 
WRITE  (15,*)  'unit  step  function  is  set  to  false.  Please' 
WRITE  (15,*)  'set  this  flag  to  true  in  file  setup. h.' 

WRITE  (15,*)  'Dont  forget  to  set  the  rise  time  for  the  ' 
WRITE  (15,*)  'step  function  in  either  defaults. f  or  ' 
WRITE  (15,*)  'userdefs.f .' 
errf lg=true 
END  IF 
ELSE 

trise=40.0E-12 
WRITE  (15,*)  '  ' 

WRITE  (15,*)  'Error!  The  flag  fspec  is  set  to  true  for  the' 
WRITE  (15,*)  'unit  step  pulse.  This  pulse  can  only' 

WRITE  (15,*)  'be  specified  in  the  time  domain  and  the  flag' 
WRITE  (15,*)  'tspec  must  be  set  to  true.' 

WRITE  (15,*)  'Make  sure  the  rise  time  for  the  unit  step' 
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c 


c 

c 

c 


c  ' 


WRITE  (15,*)  'pulse  is  defined  in  file  defaults. f  or  file 
WRITE  (15,*)  'userdefs.f 
errflg=true 
END  IF 
ELSE 


WRITE 

(15,* 

WRITE 

(15,* 

WRITE 

(15,* 

WRITE 

<15,* 

WRITE 

(15,  * 

WRITE 

(15,* 

WRITE 

<15,* 

WRITE 

(15,* 

errflg=true 

END  IF 


'Error!  All  flags  for  choosing  an  incident' 
'source  function  are  set  to  false.  Please  choose' 
'the  appropriate  source  function  by  setting  its' 

' flag  to  "true"  and  by  setting  the  appropriate' 
'time  or  frequency  specification  flags  (tspec  or' 

' f spec)  and  by  setting  the  appropriate  ' 
'parameters  in  file  setup. h.' 


Initialize  material  parameter  defaults 


DO  10  m=l,maxmat 
eps (m)  =eps0 
mu  (m)  =mu0 
sigma  (m)=0.0 
msigma(m)=0.0 
CONTINUE 

Initialize  sensor  defaults 


CALL  DFSENS 

Initialize  point  source  defaults 

iptsrc=nx/2 

jptsrc=ny/2 

kptsrc=nz/2 

fdtype^'y' 

RETURN 

END 
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C234567 

c  This  file  contains  all  of  the  time  derivatives  of  the 
c  source  functions  for  the  source  pulse  type, 
c 

IF  (gauss)  THEN 
c 

c  Time  derivative  of  Gaussian  pulse 

c 

ddtsrc=-2.0* (tprime-toff) *tauOi*tauOi*source 
c 

ELSE IF  (banlim)  THEN 
c 

c  Time  derivative  of  bandlimited  pulse 

c 

ddtsrc=EXP (- ( (tprime-toff) *tauOi) **2) * 

$ (wO*COS (wO*  (tprime-toff) ) -2 . 0* (tprime-toff) *tau0i*tau0i* 
$SIN (wO* (tprime-toff) ) ) 
c 

ELSE IF  (hypsec)  THEN 
c 

c  Time  derivative  of  hyperbolic  secant  pulse 

c 

ddtsrc=-2 . 0*tau0i* (EXP ( (tprime-toff) *tau0i) - 
$EXP (- (tprime-toff) *tau0i) ) / ( (EXP (- (tprime-toff) *tau0i) + 
$EXP ( (tprime-toff) *tau0i) ) ) 
c 

ELSE IF  (rsine)  THEN 
c 

c  Time  derivative  of  ramped  sinusoid 

c 

ddtsrc^-wO^SIN (wO* (tprime-toff) ) + 

$EXP  (-( (tprime-toff)  *tau0i)  **2)  * 

$ (wO+2 . 0* (tprime-toff) *tauOi*tauOi*COS (wO* (tprime-toff) ) ) 
c 

END  IF 
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c  constants.h 

C234567 

c  This  file  defines  constants  that  are  set  once  within 

c  the  code  and  never  change.  Examples  are  C  (speed  of  light), 

c  pi,  etc.  Do  not  put  variables  in  this  file! 
c 

c* *★**★******+★**★*★★****★★★**★★+******** *★★★*★**★★*★**★*★******** 
c 

c  Variable  dictionary 

c 

c  c=speed  of  light  in  vacuum 

c  cinv=l/c 

c  degrad=degrees  to  radians  conversion  factor  (=  pi/180) 
c  e=2. 71828 

c  false=logical  variable  (=  .FALSE.) 
c  epsO=permittivity  of  free  space 

c  etaO=free  space  wave  impedance 

c  muO=permeability  of  free  space 

c  pi=3 . 14 

c  twopi=2 . Q*pi 

c  true-logical  variable  (=  .TRUE.) 

c 

£********* ******************************************************** 
c 

REAL  c,pi,  epsO,muO,  etaO,  twopi,  cinv,  degrad,  e 
COMMON/CONSTA/c,  pi,  epsO, muO,  etaO,  twopi,  cinv,  degrad,  e 
LOGICAL *1  true, false 
PARAMETER  (true= . TRUE . , f alse= .  FALSE . ) 
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non  non  ooo  non  ooo  ooooooooooooonnoooooooon  no 


PROGRAM  FZPROC*******edit 
subroutine  fzproctemsub 

This  program  confutes  backscatter  vs.  frequency  radar 
cross-section  from  data  files  generated  by  the  Penn  State 
University  Finite  Difference  Time  Domain  3D  computer  codes. 
If  desired,  this  program  can  also  extract  the  far-zone 
scatterd  fields  vs.  time  and  the  incident  field  vs.  time. 
This  code  accompanies  the  3D  codes  fdtdc  and  fdtdd. 

The  program  computes  sigma  (res)  in  dBsm.  The  dependence  on 
distance  r  has  been  supressed. 

Revised  15  NOV  1993 


MAIN  PROGRAM 


These  parameters  set  the  size  of  the  arrays  for  this  program. 
MAXFFT  is  the  total  number  of  FFT2  samples  to  be  computed. 
MAXFFT  must  be  a  power  of  2 . 

NFZ  is  the  maximum  number  of  far-zone  angles  that  can  be 
computed. 

PARAMETER  (MAXFFT=65536, NFZ=32) 

Array  declarations  follow 

REAL  THETFZ (NFZ) ,  PHIFZ(NFZ) 

REAL  EPHIRE(1, MAXFFT),  EPHII (1, MAXFFT) 

REAL  ETHRE(1, MAXFFT),  ETHI (1, MAXFFT) 

REAL  PHIRE (NFZ, MAXFFT),  PHIIM (NFZ, MAXFFT) 

REAL  THRE (NFZ, MAXFFT) ,  THIM (NFZ, MAXFFT) 

REAL  DELX,  DELY,  DELZ,  DT,  DELF 
INTEGER  NSTOP,  NUMFZ,  NFMAX 

Read  in  the  far-zone  time  domain  information. 

CALL  READ IN (DELX, DELY, DELZ, DT, NSTOP, NUMFZ, 

1  PHIFZ, THETFZ, EPHIKE, EPHII, ETHRE, ETHI, 

2  PHIRE, PHIIM, THRE, THIM, MAXFFT, NFZ) 

Write  out  the  time  domain  data  to  some  files 

CALL  WRTTIM (NSTOP, NUMFZ, DT, PHIFZ, THETFZ, EPHIRE, 

1  ETHRE, PHIRE,  THRE.,  MAXFFT, NFZ) 

Take  FFT2s  of  the  data 

CALL  CMPFFT (DELX, DELY, DELZ, DT, NSTOP, NUMFZ, 

1  PHIFZ, THETFZ, EPHIRE, EPHII, ETHRE, ETHI, 

2  PHIRE,  PHIIM, THRE, THIM, MAXFFT, NFZ, DELF, NFMAX) 

Compute  the  RCS 
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noon  o  o  o 


C  * 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


CALL  CMPRCS  (NUMFZ, NFMAX, DELF, 

1  EPHIRE,  EPHII,  ETHRE,  ETHI,  PHIRE,  PHIIM,  THRE,  THIM, 

2  MAXFFT, NFZ) 


Write  the  RCS  data  a  file 


CALL  WRTRCS  (NUMFZ,  NFMAX,  DELF ,  THETFZ,  PHIFZ, 

1  EPHIRE,  EPHII,  ETHRE,  ETHI,  PHIRE,  PHIIM,  THRE,  THIM, 

2  MAXFFT, NFZ) 


Finished 


STOP  *************  edit 
RETURN 
END 

***.****  +  **********************  *************** 

SUBROUTINE  READIN (DELX, DELY , DELZ, DT, NSTOP , NUMFZ , 

1  PHIFZ, THETFZ, EPHIRE, EPHII, ETHRE, ETHI, 

2  PHIRE, PHIIM,  THRE, THIM, MAXFFT, NFZ) 


REAL  THETFZ (NFZ),  PHIFZ (NFZ) 

REAL  EPHIRE (1, MAXFFT),  EPHII (1, MAXFFT) 
REAL  ETHRE (1, MAXFFT),  ETHI (1, MAXFFT) 

REAL  PHIRE (NFZ, MAXFFT),  PHIIM (NFZ, MAXFFT) 
REAL  THRE (NFZ, MAXFFT),  THIM  (NFZ, MAXFFT) 
REAL  DELX,  DELY,  DELZ,  DT 
INTEGER  NSTOP,  NUMFZ 


This  subroutine  reads  in  the  far-zone  time  domain  data 
from  the  files  fzinfo.dat  and  fzout3d.dat  or  fzout3d.bin 
depending  on  how  many  far-zone  angles  are  specified. 


open  the  far  zone  information  file 

OPEN  (UNIT=25,FILE=' farfld.dat' , STATUS*' OLD' ) *******edit 
OPEN  (UNIT=25, FILE*' FZINFO. DAT' , STATUS*' OLD' ) 


read  in  header  information 

READ  (25,*)  DELX, DELY, DELZ, DT, NSTOP, NUMFZ 

Error  check  on  NUMFZ  to  make  sure  it  is  not  larger 
than  values  declared  for  this  program. 


IBAD  =  0 

IF (NUMFZ. GT. NFZ)  THEN 

WRITE (*,*)  'Increase  parameter  NFZ  to  at  least 
IBAD  =  1 
END  IF 


NUMFZ 


compute  amount  of  zero  padding  that  can  be  added  to 
the  input  data.  If  NPAD  equals  zero,  then  the  input 
file  is  longer  that  the  number  of  FFT2  samples,  so 
MAXFFT  will  have  to  be  increased  to  at  least  NSTOP . 


NPAD  =  MAXFFT /NSTOP 

IF WRITE "( *? * ) } '  Th^number  of  FFT  samples  is  less  than  the  length' 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


WRITE (*,*)  -of  the  input  data.  Increase  the  parameter  MAXEFT' 

WRITE (*,*)  'to  at  least  NSTOP 
IBAD  =  1 
END  IF 

If  any  errors  were  encountered,  stop  the  program 
IF(IBAD.EQ.l)  STOP 

K  S5.*£L2£  *  Fields  £cr  the 

first  far-zone  angle. 

OPEN  (UNIT=30,FILE=' fzout3d.dat' ,  STATUS®' OLD  ) **  edit 

S  SS-So!  FILE-  FZOUT3D  .DAT- .  STATUS-  OLD' ) 

if  there  is  more  than  one  far-zone  angle,  then 
open  the  binary  far-zone  time-domain  data  file 
to  read  in  all  the  far-zone  data. 

"oSMiE&S-  fznut3d.bin- .  STATUS-  <»' . 

I  FORM= ' UNFORMATTED ' ) 

END  IF 

Read  in  the  data 
DO  10  L=l, NUMFZ 

read  in  far-zone  scattering  angles  from  fzinfo.dat 

READ  (25,*)  PHIFZ (L) , THETFZ (L) ******edit  (this  was  commented  out) 
READ  (25,*)  PHIFZ (L), THETFZ (L) 

CONTINUE 
CLOSE  (UNIT=25) 

read  the  time  domain  far-zone  field  values  from  the 
far-zone  file  (fzout3d.dat  or  fzout3d.bin) 

DO  30  1=1, NSTOP 

set  imaginary  parts  of  fields  to  zero 

EPHII (1, I) =0 . 0 
ETHI (1, I) =0 . 0 
PHIIM(1, I)=0.0 
THIM(1, I)=0.0 

read  in  scattered  and  incident  fields  in  binary  form  for 
multiple  angles  (NUMFZ  >  1)  or  ASCII  form  for  single  angle 

(NUMFZ  -  1) 

READ  (25  *)  L,PHIRE (1,1), THEE (1,1), EPHIRE (1, I) ,ETHRE (1, I) ****edit 
READ  (30*,*)  L,PHIRE  (1, 1) ,  THRE  (1, 1) ,  EPHIRE  (1,1),  ETHRE  (1, 

IF (NUMFZ .GT. 1)  THEN 

READ  (35)  (PHIRE  (L, I) , THRE (L, I) , L=l, NUMFZ) 

DO  20,  L  =  1, NUMFZ 
PHIIM(L,  I) =0.0 
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THIM(L,  I)  =0.0 
20  CONTINUE 

END  IF 

30  CONTINUE 

CLOSE  (UNIT=30)  ... 

IF  (NUMFZ.GT.l)  CLOSE  (UNIT  35) 

RETURN 

END  ********************************** 

C  *  *  SUBROUT INE + WRTT IM (NSTOP , NUMFZ , DT, PHIFZ , THETFZ, EPHIRE, 

1  ETHRE, PHIRE, THRE, MAXFFT, NFZ) 

C  REAL  THETFZ  (NFZ),  PHIFZ<^>  MAvFFT) 

REAL  EPHIRE ( 1 , MAXFFT) ,  ETHRE 

REAL  PHIRE (NFZ, MAXFFT),  THRE (NFZ, MAXFFT) 

REAL  DT 

INTEGER  NSTOP,  NUMFZ 
CHARACTER* 1  ANS 

This  s^^°fin®fW^iyS0neefa?-zoneeanglede^stSyStherthis 
procedure  will  be  automatic,  otherwise  the  angles  availab  e 
Sill  be  displayed  and  user  input  will  determine  what 
fields  will  be  plotted. 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


If  there  is  only  one  far-zone  angle... 

IF (NUMFZ .EQ.l)  THEN 

mra (•',*)  'Writing  time-domain  tar-zone  scattered', 
1  '  fields  to  file  fzscat.dat' 

WRITE (*'  ’)  'Writing  time-domain  far-zone  incident', 

1  '  fields  to  file  fzinc.dat' 

SotIMO.FILE-'  fzscat.dat' ,  STATUS-' OTKHOWN' > 
SSS-41.FILE-'  fzinc.dat' .  STATUS-' UNKWOWN' ) 

WRITE (40, 100) 

WRITE (40, 200) 

WRITE (40,  300) 

WRITE (41,  400) 

WRITE (41,  200) 

WRITE (41,  300) 

DOwi?ra^'*)TC(DT*I)*l.e9,  PHIRE (1,D,  THRE (1,1) 
SSS(1?;*)  (DT*I)*l.e9,  EPHIRE d, D  >  ETHRE (1, 1) 

10  CONTINUE 
CLOSE (40) 

CLOSE (41) 

ELSE 

Otherwise,  there  are  several  angles  to jJ°?JetST  S° 
this  procedure  can  not  be  automatic.  t 

domain  data  is  desired  and  if  so,  call  a  separate 
subroutine  to  deal  with  it. 

WRITE  (*,*)  '  ' 
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WRITE (*,*)  'Would  you  like  to  save  any  tune  domain  fields. 
1  '  (y/n)' 

1  ETHRE,PHIRE, THEE, MAXFFT, NFZ) 

rnxS (•',*)  -would  you  like  to  compute  the  RCS?  (y/n)' 

S^MS^'NToR.CSHS.EQ.-n'))  THEN 
STOP 
END  IF 
END  IF 
END  IF 

Finished 


c  100  FORMAT  ('.  Ear-zone  lettered  field  ^voUs/ml  v^  Time-^ 

200  FORMAT  ('*  Time  (ns) _ Ephi  (W) _ _ 

FORMAT  ('  #  Far-zone""incident  field  (volte/m)  vs.  Time') 

1000  FORMAT  (80A1) 

RETURN 

END  ********************************* 

c  ******^^****^*^^j^^gTOPf NUMFZ, DT, PHIFZ, THETFZ, EPHIRE, 

1  ETHRE,PHIRE,THRE, MAXFFT, NFZ) 

Q 

RFAL  THETFZ (NFZ),  PHIFZ (NFZ) 

REAL  EPHIRE  (1,  MAXFFT) ,  ETHRE  (1,  MAXFFT) 
SpilRE(NFZ,MAXFFT),  THPE/NFZ.MAXFFT) 

REAL  DT 

INTEGER  NSTOP,  NUMFZ 
CHARACTER* 1  ANS,  Cl,  CERR 
CHARACTER*2  C2 
CHARACTER* 3  ITOC 
CHARACTER*  2  5  FLNAM 

C  This  subroutine  saves  time-domain  far-zone  fields  to 

C  data  files  for  the  case  when  there  are: more  th an 
C  one  far-zone  angle.  Some  user  interaction  is  required 

C  here . 

C  Present  the  choices  available.  List  all  far-zone  locations, 

c 

WRITE (*,*)  '  ' 

WRITE (*,*)  '  ' 

WRITE (*,*)  ' 

WRITE  (*, *)  '  ' 

WRITE  (*,*)  '  ' 

WRITE (*,*)  '  ' 

WRITE (*, *)  '  ' 

WRITE  (*, *)  '  ' 

WRITE (*,*)  '  ' 

5  S (•',*)  -The  following  far-zone  angles  are  available', 

1  '  for  saving'  , 

WRITE (*,*)  'time-domain  fields. 


o  o  o  o 


Phi 


Theta' 


C 

C 

C 

C 

C 

C 


WRITE (*,*)  'Number 

WRITE (*,*)  - - 

K=0 

DO  10,  1=1, NUMFZ 

WRITE (*,500)  I,  PHIFZ(I),  THETFZ(I) 

IF(K.EQ.IO)  THEN  , 

WRITE (*,*)  'Press  ENTER  to  see  more  angles 

READ (5, 1000)  CERR 
K  =  0 
END  IF 

10  CONTINUE 

WRITE (%  *) X' Choose+one  of  the  numbers  above,  0  to  quit' 

WRITE (*,*)  'Enter  your  choice  -> 

READ ( * , * )  IANG 

If  a  non-existance  choice  was  made,  re-ask  the  question. 

IF ( (IANG.LT.0) .OR. (IANG.GT. (NUMFZ+1) ) )  GO  TO  5 

If  a  single  angle  is  to  be  plotted,  save  it  in  a  file 

IF ( (IANG.NE. 0) .AND.  (IANG.NE. (NUMFZ+1)))  THEN 
IF (IANG.LT. 10)  THEN 
Cl  =  ITOC(IANG) 

FLNAM  =  '  fzsc' //Cl//' -dat' 

ELSE 

C2  =  ITOC(IANG) 

FLNAM  =  ' fzsc' //C2//' .dat' 

OPEN  (UNIT=40,FILE=FLNAM,  STATUS='  UNKNOWN  ) 

WRITE (40,  100) 

WRITE  (40, 101) 

WRITE (40, 102)  PHIFZ(IANG),  THETFZ (IANG) 

WRITE (40, 101) 

WRITE (40, 200) 

WRITE (40, 300) 

PHIBE  (IANG,  I) »  THBEHANG,  I) 

20  CONTINUE 

•  Writing  time  donain  far-zone  field  to  file  '.FLNAM 
ELSE  IF ( IANG . EQ . (NUMFZ+1 ) )  THEN 

If  choice  was  to  print  out  all  of  the  time-domin  fields 
i  nt"  o  files ... 


DO  30,  J=l, NUMFZ 
IF (J.LT.10)  THEN 
Cl  =  ITOC(J) 

FLNAM  =  ' fzsc' //Cl//'  .dat' 

ELSE 

C2  =  ITOC(J) 

FLNAM  =  ' fzsc' //C2//' .dat' 

OPEmUNIT=40,FILE=FLNAM,  STATUS=' UNKNOWN' ) 
WRITE (40, 100) 
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c 

c 

c 

c 

c 

c 

c 


WRITE (40, 101) 

WRITE (40, 102)  PHIFZ(J),  THETFZ ( 

WRITE (40, 101) 

WRITE (40,  200) 

WRITE (40, 300) 

D°wRITe'(40^  *)  (DT*I)*l.e9,  PHIRE ( J,  I) ,  THRE  ( J,  I) 

40  CONTINUE 

WRITE (*?*)  '  Writing  time  domain  far-zone  field  to  file 
1  flnam 

30  CONTINUE 
END  IF 

If  choice  was  not  'quit'  or  'all  of  the  above',  return  to 
top  of  menu. 

IF ( (IANG.NE.0) -AND. (IANG.NE. (NUMFZ+1) ) )  GO  TO  5 

Write  out  the  far-zone  incident  field 

WRITE (*,*)  'Writing  time-domain  far-zone  incident  , 

1  '  £ieldS  fzinc.dat',  STATDS-'OTKHOSN') 

WRITE (41,  400) 

WRITE (41, 200) 

WRITE (41,  300) 

D°WRITE(4l!  *)  (DT*I)*l.e9,  EPHIRE(1,I),  ETHRE (1, 1) 

50  CONTINUE 


C 

C 

C 


Finished 

100  FORMAT  ('#  Far-zone  scattered  field  (volts/m)  vs.  Time  ) 

101  FORMAT  ('#')  „  ,  .  _  ,  -  „ 

•  102  FORMAT  ('#  Phi  =  ' /■  F6.2,  Theta  ,  •  (V/m)') 

200  FORMAT  (' #  Time  (ns)_ _ Ephi  (V/m) _ Etheta  (V/m^  J 

III  F°S  (' I  Far-zone_InCident  field  <volts/m)  vs.  Time') 

500  FORMAT  (2X, 12, 5X,F7 .2,  5X,  F7.2) 

501  FORMAT  (2X,I2,'  All  of  the  above  ) 

1000  FORMAT  (80A1) 

RETURN 

END  ^^^j.^j.^  +  +  +  +  +  **‘************'*’*'*,*‘ 

r  ************************************* 

SUBROUTINE  CMPFFT (DELX,DELY,DELZ,DT,NSTOP,NUMF  , 

1  PHIFZ  THETFZ, EPHIRE,EPHII, ETHRE, ETHI, 

2  PHIRE*  PHIIM, THRE, THIM, MAXFFT, NFZ, DELF, NFMAX) 

REAL  THETFZ (NFZ),  PHIFZ (NFZ) 

REAL  EP HIRE (1, MAXFFT ) ,  EPHI I (1, MAXFFT) 

REAL  ETHRE (1, MAXFFT),  ETHI (1, MAXFFT) 

REAL  PHIRE (NFZ, MAXFFT),  PHIIM  (NFZ, MAXFFT) 

REAL  THRE (NFZ, MAXFFT),  THIM (NFZ, MAXFFT) 

REAL  DELX,  DELY,  DELZ,  DT,  DELF 
INTEGER  NSTOP,  NUMFZ,  NFMAX 

C 

C 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


This  subroutine  sets  UP  the  hate  for  computing  the  FFT 
and  then  calls  the  FFT  subroutine. 

Compute  r»nt  °V£e^aIsTro~nthX  £T2£t 
Sel«ar'th 2  S.  nXr  of  m 
MAXFFT  will  have  to  be  increasea 

NPAD  =  MAXFFT /N STOP 

IF(NPAD.EQ.O)  THEN  saitroles  is  less  than  the  length 

ESI*.;:!  -  tS^dS^Sese  the  variable  MAXFFT 

WRITE (*,*)  'to  at  least  ,  NSTOP 

STOP 
END  IF 

compute  the  power  |f^  pessary  for  this  current  nuatoer 
of  FFT  points  (log2 (MAXFFT) ) 

NU=NINT (LOGIO (FLOAT (NPAD*NSTOP)) /LOGIO (2.0)) 

IF  ((2**NU).LT.NPAD*NSTOP)  NU=NU+1 
NMAX=2**NU 

compute  the  maximum  fr^ency  based  on  10  cells  per  wavelength 

Compute  the  frequency  increment 
DELF=1./ (NMAX*DT) 

compute  the  integral  number  of  f requency  points  in  the  FFT. 


_ _ .  .  ZminT  W  \ 


c 

c 

c 


c 


eck  DELF  to  see  if  it  is  greater  than  FMAX. 

IF  (DELF. GT. FMAX)  THEN 

HOTEW  -  NINT (loglO (100./ (FMAX'DT) ) /loglO (2.0)) 

NEWMAX  =  2**NUNEW  MftXFFT  to  at  least  ' ,  NEWMAX 

write (*,*)  'Increase  parameter  MAXFFT  to  at 

STOP 


rrnv  /*  9 


FFT  of  scattered  fields. 


zero  pad  to  NMAX 

DO  94  L=1,NUMFZ 

DO  93  I=NSTOP+l,NMAX 
EPHIRE (1, I) =0 • 0 
EPHII (1/ I)=0 .0 
ETHRE (1, I) =0 . 0 
ETHI(1,I)“0.0 
PHIRE (L, I)=0 .0 
PHIIM(L, I) =0.0 
THRE (L, I) =0 . 0 
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c 

c 


THIM(L,I)=0.0 

93  CONTINUE 

compute  Fourier  transform  of  scattered  field 

IF (NUMFZ.GT.l)  WRITE (*,600)  L 
CALL  FFT2 (PHIRE, PHIIM, NMAX, NU, L, NFZ) 

CALL  FFT2  (THRE,  TRIM,  NMAX,  NU,  L,NFZ) 

94  CONTINUE 

KRITEC(*,*>  computing  FFT  of  incident  fields...' 

compote  Fourier  transform  of  incident  fields 

CALL  FFT2 (EPHIRE, EPHII, NMAX, NU,  1,1) 

CALL  FFT2 (ETHRE, ETHI, NMAX, NU, 1,1) 

Finished 

600  FORMAT ('  . . .Computing  Far-Zone  Angle  ' ,  13,  ...  ) 

RETURN 

END  ^^^  +  +  4'  +  +  +  *  +  +  *  +  **  +  ***  +  ************* 

-  **************************** 

qttrroUTINE  CMPRCS  (NUMFZ,NFMAX,DELF, 

!  ^hSfSi . ETBSE, ETHI .  PHIPE,  PHIIM.  THEE.  THIM, 

2  MAXFFT,NFZ) 

C 

COMPLEX  J, ARG, CINC 

REAL  EPHIRE (1,MAXFFT) ,  EPHII (1, MAXFFT) 

REAL  ETHRE (1,MAXFFT) ,  ETHI (1,MAXFFT) 

■d-ptit  phtrf  <NFZ  MAXFFT),  PHIIM  (NFZ,  MAXFFT) 

““  PHIEE<S^SiwZ,MAXFFT),  THIM  (NFZ,  MAXFFT) 

REAL  delf 

real  magps,  magts,  magi 

INTEGER  NUMFZ,  NFMAX 


c 

c 

c 


c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 


c 

c 


This  subroutine  computes  the  RCS 
C 

p 1=4 . 0  *ATAN (1.0) 

J— CMPLX ( 0 . 0 , 1 . 0 ) 

WRITE  (*,  *)  ' • • .Computing  RCS. . . 

DO  160  L=l, NUMFZ 
DO  150  1=1, NFMAX 

Compute  magnitude  of  phi  and  theta-pol  scattered  field 
and  complex  incident  field. 

MAGPS=SQRT (PHIRE (L, I) **2+PHIIM(L,  I) **2> 

MAGTS=SQRT (THRE (L, I) **2+THIM(L,  I)  2) 

CINC=CSQRT  ( (EPHIRE  (1, 1)  +J*EPHII  (1< - 
1  (ETHRE(1,I)+J*ETHI(1,I))*  2) 

MAGI=CABS (CINC) 

Confute  phase  of  RCS 
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Confute  magnitude  of  RCS 


50  CONTINUE 
.60  CONTINUE 

Finished 

return 

END  ***************************************** 

”*I™^^SSSS5n5SS^iSSKSS: 

2  MAXFFT, NFZ) 

REAL  THETFZ(NFZ),  PHIFZ(NFZ) 

real  EPHIRE (1, MAXFFT),  EPHII(l,mXFFT) 

„,T  ttthrf  (1  MAXFFT) ,  ETHI  ( 1 ,  MAXFt  1 ) 

REAL  PHIRE  (NFZ,  MAXFFT),  PHIIM(NFZ^XFET) 

REAL  THRE  (NFZ,  MAXFFT),  THIM  (NFZ,  MAXFFT) 

REAL  DELF,  MAGPS,  MAGTS 
INTEGER  NUMFZ,  NFMAX 
COMPLEX  CJ,  CINC,  ARG 

:  This  subroutine  writes  the  RCS  output  “.wifls 

;  5 SSE^s- 

:  ^iSoetfefRcl  vs* 1  Frequency  ->  single  far-zone  angle 

:  Backscatter  and  Bistatic  RCS  vs.  Frequency  ->  multiple 

l  B  J™savlleLgle  ->  multiple  far-zone  angles 

c 

CJ  =  CMPLX(0. 0,1-0) 

PI  =  2 . 0*ACOS (0.0) 

IF (NUMFZ. EQ.l)  THEN 

'  Since  there's  only  one  far-zone  angle,  there  is  no  need  to 

c  ask  for  any  input. 

C 

(♦',•)  'Writing  RCS  vs.  Frequency  to  file  3drcs.dat' 
■Sr*:*!  'Writing  incident  pulse  spectrum  to  file  3dinc.dat' 

OPEN (UNIT=40, FILE-  3drcs. da  ,  STATUS=' UNKNOWN' ) 

OPEN  (UNIT=42 ,  FILE-  3drcs .  .  STATUS='  UNKNOWN' ) 
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non  ooooo 


c 

c 


WRITE (40,  100) 

WRITE (40, 101) 

WRITE (40, 200) 

WRITE (40, 201) 

WRITE (40, 300) 

WRITE (41, 400) 

WRITE (41, 101) 

WRITE (41, 200) 

WRITE (41, 201) 

WRITE (41,  300) 

1  rs-.r-!:  SK’ 

Convert  the  incident  field  spectrum  to  magnitude  and  phase 

CINC=EPHIRE  a^IUJ*EPHII  (1^1)  ^  j}  *#2+EPHII  (1, 1}  -2) 

PHAPS=180  .  /PI*ATAN2C  (AIMAG  (ARG) ,  REAL  (ARG)  ) 
if^LcPS  .GT .  0 . 0)  MAGPS=20  .  *LOG10  (MAGPS) 

CINC=ETHRE  (1, I)  +J*E*E* „  z)  **2) 

MAGTS=SQRT (ETHRE (1,1) **2+ETHI (1,1)  41 

SSs=180  .  /PI*ATAN2C  (AIMAG  (ARG) ,  REAL  (ARG) ) 

10  CONTINUE 
CLOSE (40) 

CLOSE (41) 

ELSE 

If  there  ere  multiple  £ar-toneengles.  Vacate" 

fuSoSneloTe^^the  ^  Si  Si.  -se’ 

!  “S.SKS",  THIM. 

2  MAXFFT,NFZ) 

END  IF 


Phase' , 
Ephi  ' , 


Finished 

100  FORMAT  ('*  Radar  Cross-Section  vs.  Frequency'! 

200  S  S''  *#'  Frequency  Magnitude  ,dBsm> 

2011F;S"r>',,OHr, 

1  •  Etheta' )  _ • 

300  FORMAT  ('# - - - 

return 

end  ********************************************** 
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o  n  o  o  o 


1"SSS^5SSSSSSs5nSS^SSi^ 

2  MAXFFT, NFZ) 

BEAL  THETFZ(NFZ),  PHpZ<^> 

REAL  EPHIRE (1, MAXFFT) ,  EPHII (1<MAXF^T) 

REAL  ETHRE (1^ MAXFFT) /  ETHI (1, MAXF 
SS  PHiS  mFZ, MAXFFT),  PHIIM (NFZ, MAXFFT) 
XlPt”^XFFT),  THIM(NFZ,MAXFFT) 

real  delf,  magps,  magts 

INTEGER  NUMFZ,  NFMAX 
COMPLEX  CJ,  CINC,  ARG 

■(->!(»  rcs  when  there  is  more  that  one 
£r-s5£"  "soml  input  is  needed  fro.  the  user  to 
decide  what  type  of  output  to  plot. 

CJ  =  CMP LX (0 . 0, 1 . 0) 

PI  =  2 . 0*ACOS (0 . 0) 


, -) 
,*) 


WRITE (*,  *) 
WRITE  (*»  *) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (* 
WRITE ( 
WRITE (*,*) 
WRITE  (*,  *) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 
WRITE (*,*) 


'Choose  one  of  the  following  output  formats:' 
'  1.  RCS  vs.  Frequency  at  one  angle, 

'  2 .  RCS  vs .  Angle  at  one  frequency 

'  3.  Quit' 


'Your  choice  => 

READ (*,  *)  IANS 

IFCALLSRCSVF)(NU^Z , NFMAX,  DELF,  THETFZ,  PHIFZ, 

1  EPHIRE,  EPHII,  ETHRE, ETHI,  PHIRE, PHI IM,  THRE,  THIM, 

2  MAXFFT, NFZ) 

ELSlLFRcS!a(NU^Z, NFMAX,  DELF,  THETFZ, PHIFZ, 

!  ETBI.PBIKE.  PBIIM,  TBRE.  TBIM, 

2  MAXFFT, NFZ) 

END  IF 

IF  (IANS. NE. 3)  GO  TO  5 

Sira'*'.*)  'writing  incident  pulse  spectrum  to  file  3dinc.dat' 

SSiiUi.PILE-'  3dinc . dat' ,  STATUS*'  UNKNOWN' ) 

WRITE (41, 100) 

WRITE (41, 101) 

WRITE (41, 200) 

WRITE (41, 201) 

WRITE (41, 300) 

DO  10,  1=1, NFMAX 
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Convert  the  incident  field  spectrum  to  magnitude  and  phase 

CINC=EPHIRE (1, 1)+J*EPHII (1, 1) 

MAGPS=SQRT  (EPHIRE (1, 1) **2+EPHII (1, 1)  2) 

£S5s=180  /PI*ATAN2C  (AIMAG  (ARG) ,  REAL  (ARG) ) 
lf^MAGPS.GT.0.0)  MAGPS=20.*LOG10(MAGPS) 

CINC=ETHRE (1, 1)+J*ETHI (1, 1) 

MAGTS=SQRT (ETHRE (1, I) **2+ETHI (1,1)  2) 

PHATS=180 . /PI*ATAN2C (AIMAG (ARG) , REAL (ARG) ) 

,M,rTc  PT  0  0)  MAGTS=20 . *LOG10 (MAGTS) 

I*DELF*l,e-9,  MAGPS,  MAGTS,  PHAPS,  PHATS 

10  CONTINUE 
CLOSE (41) 

Finished 

100  FORMAT  ('#  Incident  Pulse  Spectrum  ) 

200  FORMAT (' IT  Frequency  #  Magnitude  (dBsm)  Phase', 

201  FORMAT  ('#  1  (GHz)916635  5  Ephi  Etheta  EpM  '' 

1  '  Etheta' )  _ , 

300  FORMAT ('# - 

400  FORMAT (2X,F10. 7, 3X,F10.5, 1X,F10 .5, 1X,F10.5, IX, F10 .5) 

RETURN 

END  J.J.J.^.rf,*.***  +  ****************** 

************************************* 

SUBROUTINE  RCSVF  (NUMFZ , NFMAX, DELF ,  ,  PHIFZ , 

1  EPHIRE, EPHII, ETHRE, ETHI, PHIRE,  PHIIM, THRE, THIM, 

2  MAXFFT, NFZ) 

REAL  THETFZ(NFZ),  PHIFZ(NFZ)  . 

REAL  EPHIRE (1, MAXFFT) ,  EPHII (1, MAXFFT) 

REAL  ETHRE (1, MAXFFT),  ETHI (1, MAXFFT) 

REAL  PHIRE (NFZ, MAXFFT) ,  PHIIM (NFZ, MAXFFT) 

REAL  THRE (NFZ, MAXFFT ) ,  THIM (NFZ,  MAXFFT) 

REAL  DELF 
INTEGER  NUMFZ,  NFMAX 
COMPLEX  CINC,  ARG 
CHARACTER* 2 5  FLNAM 
CHARACTER* 1  Cl,  CERR 
CHARACTER*  2  C2 
CHARACTER* 3  ITOC 

This  subroutine  writes  the  RCS  vs.  frequency  at  one 
anale . 


WRITE(*, *) 
WRITE (*,*) 
WRITE (*, *) 
WRITE (*, *) 
WRITE (*, *) 
WRITE (*, *) 
WRITE (*, *) 
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WRITE (*,*)  '  ' 

WRITE (*,  *)  '  ' 

WRITE (*,*)  '  ' 

5  'The  following  far-sone  angles  are  available'. 

1  'for  computing'  , 

WRITE (*,*)  'RCS  vs.  frequency. 

WRITE (*,*)  'Number  _ , 

WRITE (*,  *)  - - 

K=0 

DO  10,  I=1,NUMFZ 

^(•.502)  I.  FHIFZ (I) .  THETFZ (I) 

Irmira(*!*)T'Press  enter  t0  see  "°re  angles’ 

READ (5, 1000)  CERR 
K  =  0 
END  IF 

10  CONTINUE 

(Seine  of  the  numbers  above,  0  to  quit' 

WRITE (*,*)  'Enter  your  choice  -> 

READ ( * , * )  IANG 

If  a  non-existance  choice  was  made,  re-ask  the  question. 

IF((IANG.LT.0).OR.(IANG.GT.(NUMFZ+l)))  GO  TO  5 

If  a  single  angle  is  to  be  plotted,  save  it  in  a  file 

IF( (IANG. NE.0) .AND. (IANG. NE. (NUMFZ+1) ) )  THEN 
IFdANG.LT.  10)  THEN 
Cl  =  ITOC (IANG) 

FLNAM  =  ' 3drcs'  / /Cl/ /'  -dat 

ELSE 

C2  =  ITOC (IANG) 

FLNAM  =  ' 3drcs' //C2//'  -dat 

SOTIT-40.FfLE.FLKM,  STATUS-'  UNEKOWN' ) 

WRITE (40, 100) 

WRITE  (to’,  102)  PHIFZ  (IANG) ,  THETFZ  (IANG) 

WRITE (40, 101) 

WRITE (40, 200) 

WRITE (40,  201) 

WRITE (40, 300) 

DO  20,  1=1, NF MAX  phtrf  flANG  I),  THRE (IANG, I) , 

WRITE  (40,  400)  ^ 

20  CONTINUE 

SSI1?’.,  'writing  RCS  vs.  Frequency  to  file  ' ' FLNAM 
ELSE  IF ( IANG . EQ . (NUMF  Z+l ) )  THEN 

c  If  choice  was  to  print  out  the  RCS  for  all  the  angles 

C  into  files . . . 

C 

DO  30,  J=l, NUMFZ 
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o  o  o  o 


c 

c 

c 

c 


IF ( J.LT . 10)  THEN 
Cl  =  ITOC(J) 

FLNAM  =  '  3drcs' / /Cl/ /'  .dat' 

ELSE 

C2  =  ITOC(J) 

FLNAM  =  '  3drcs' //C2//'  .dat 

OPEN^(UNIT=40, FILE=FLNAM,  STATUS=' UNKNOWN' ) 

WRITE (40, 100) 

WRITE  (40, 101)  rnnr,m?,  . 

WRITE (40, 102)  PHIFZ(J),  THETFZ ( J) 

WRITE (40, 101) 

WRITE (40, 200) 

WRITE (40,  201) 

WRITE (40, 300) 

D°WRITE^4o! 400)  I*DELF*l.e-9,  PHIRE ( J, I) ,  THRE ( J,  I) , 
PHIIM(J, I) , THIM(J,  I) 

40  CONTINUE 

'Writing  RCS  vs.  Frequency  to  file  '  .FLNAM 

30  CONTINUE 
END  IF 

If  choice  was  not  'quit'  or  'all  of  the  above',  return  to 
top  of  menu. 

IF ( (IANG.NE.0) .AND. (IANG.NE. (NUMFZ+1) ) )  GO  TO  5 

'  ioo  FORMAT  ('#  Radar  Cross-Section  vs.  Frequency') 

101  FORMAT  ('#') 

102  FORMAT  (' #  Phi  =  ' ,  F6.2,  '  Theta  -  ,  F 6.2) 

200  FORMAT ('#  Frequency  Magnitude  (dBsm) 

1  '  (degrees)') 

201  FORMAT ('#  (GHz)  Ephi  Etheta 

1  '  Etheta' )  _ 

300  FORMAT  ('# - 

4001FORMAT(2X,F10.7!3X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5) 

501  FORMAT  (2X,I2,'  All  of  the  above  ) 

502  FORMAT  (2X, 12, 5X,F7 .2,  5X,  F7.2) 

1000  FORMAT  (80A1) 


Phase' , 
Ephi  ' , 


Finished 


RETURN 

END  J.J.J.j.a.^.*  +  +  +  +  +  ***********'A'***** 

c  *★★★★**★ ************ ************ 

SUBROUTINE  RCSVA  (NUMFZ, NFMAX, DELF,  THETFZ, PHIFZ, 

1  EPHIRE,  EPHII,  ETHRE,  ETHI,  PHIRE,  PHIIM,  THRE,  THIM, 

2  MAXFFT, NFZ) 

REAL  THETFZ (NFZ),  PHIFZ (NFZ) 

REAL  EPHIRE (1, MAXFFT),  EPHII (1, MAXFFT) 

REAL  ETHRE (1, MAXFFT),  ETHI (1, MAXFFT) 

REAL  PHIRE  (NFZ,  MAXFFT),  PHIIM  (NFZ,  MAXFFT) 

REAL  THRE  (NFZ,  MAXFFT) ,  THIM  (NFZ,  MAXFFT) 
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REAL  DELF 

INTEGER  NUMFZ,  NFMAX 
COMPLEX  CINC,  ARG 
CHARACTERS  5  FLNAM 
CHARACTER* 1  Cl,  CERR 
CHARACTER* 2  C2 
CHARACTER* 3  C3,ITOC 
INTEGER  IVAL(IOO) 

This  subroutine  plots  the  RCS  vs.  angle  at  a  single 
frequency . 


C 


C 


FMAX  =  DELF  *NFMAX  * 1 . e- 9 


WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 
1  '  code  be' 
WRITE (*,*)  ' 
5  WRITE (*,*)  ' 
WRITE (*,*)  ' 


It  is  HIGHLY  recommended  that  a  steady-state  FDTD' 
used  for  this  type  of  output.' 

r 

The  Bistatic  Radar  Cross-Section  vs.  Angle  may' , 


1  '  be  plotted' 

WRITE  (*,*)  'a t  frequencies  below  ' ,  FMAX,  '  GHz.' 

WRITE (*,*)  '  ' 

WRITE (*,*)  'The  following  far-zone  angles  are  available', 
1  '  for  computing' 

WRITE (*,*)  'RCS  vs.  Angle.' 

WRITE (*,*)  'Number  Phi  Theta' 

WRITE (*, *)  - - ' 


K=0 

DO  9,  1=1, NUMFZ 

K  =  K  +  1 

WRITE (*,502)  I,  PHIFZ(I),  THETFZ (I) 

IF(K.EQ.IO)  THEN 

WRITE (*,*)  'Press  ENTER  to  see  more  angles' 

READ  (5, 1000)  CERR 
K  =  0 
END  IF 

9  CONTINUE 

WRITE (*,*)  '  '  ^  ^  ,,  . .  .  , 

WRITE(*,*)  'Choose  a  plot  type  from  the  following  list. 

WRITE (*,*)  '  1.  Phi  varies.  Theta  constant 

WRITE (*,*)  '  2.  Theta  varies.  Phi  constant  ' 

WRITE (*,*)  '  3-  Far-zone  angle  specified  in  FDTD  code  varies' 

WRITE (*,*)  '  ' 

WRITE (*, *)  'Enter  a  choice,  0  to  quit  ' 

WRITE  (*,*)  '  ' 

READ  (*, *)  IANS 
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IF (IANS  .EQ.  1)  THEN 


If  plot  is  to  be  versus  phi,  get  a  theta  angle  that  will 
be  constant . 

WRITE (*, *)  '  ' 

WRITE (*,*)  'Enter  the  constant  value  for  Theta:  ' 

READ  (*, *)  ITHETA 
NUMPHI  =  0 
DO  10  1=1, NUMFZ 

IF ( INT (THETFZ ( I ) ) . EQ . ITHETA)  THEN 
RTHETA  =  THETFZ (I) 

NUMPHI  =  NUMPHI+1 
IVAL (NUMPHI)  =  I 
END  IF 

10  CONTINUE 

IF (NUMPHI. EQ.O)  THEN 

WRITE (*,*)  'No  far-zone  points  were  saved  in  the  Theta  =  ', 
1  ITHETA,  '  plane' 

WRITE (*,*)  'Press  ENTER  to  continue' 

READ (5, 1000)  CERR 
GO  TO  5 
ELSE 

WRITE  (*,*)  '  ' 

WRITE (*,*)  'Enter  the  frequency  for  the  plot  (in  GHz):  ' 
READ ( * , * )  FREQ 
IF (FREQ.GT.FMAX)  THEN 
WRITE (*,*)  '  ' 

WRITE (*,*)  'Frequency  is  too  high.  Enter  a  value  less', 

1  '  than',  FMAX 

WRITE (*,*)  'Press  ENTER  to  continue' 

READ  (5, 1000)  CERR 
GO  TO  5 
END  IF 

IFREQ  =  NINT(FREQ*l.e9/DELF)  +  1 
IF (IFREQ.LT. 10)  THEN 
Cl  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //Cl//'  .dat' 

ELSE  IF (IFREQ.LT. 100)  THEN 
C2  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C2//' .dat' 

ELSE  IF (IFREQ.LT. 1000)  THEN 
C3  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C3//' .dat' 

END  IF 

OPEN  (UNIT=40,  FILE=FLNAM,  STATUS='  UNKNOWN' ) 

WRITE (40, 100) 

WRITE (40, 101) 

WRITE (40, 102)  FREQ 
WRITE (40, 103)'  IFREQ*DELF 
WRITE (40, 104)  RTHETA 
WRITE (40, 101) 

WRITE (40, 200) 

WRITE (40, 201) 

WRITE (40, 300) 

DO  20  1=1, NUMPHI 

WRITE  (40,400)  PHIFZ  (IVAL  (I) ) ,  PHIRE  (IVAL (I) ,  IFREQ)', 

1  THRE  (IVAL  (I) ,  IFREQ) ,  PHIIM(IVAL  (I) ,  IFREQ) , 
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non 


2 


THIM ( IVAL ( I ) , IFREQ) 


20  CONTINUE 
CLOSE (40) 

WRITE (*,*)  'Writing  RCS  vs.  Angle  to  file  'fFLNAM 
END  IF 

ELSE  IF (IANS .EQ .2)  THEN 
C 

If  plot  is  to  be  versus  theta,  get  a  phi  angle  that  will 
be  constant . 

WRITE (*,*)  '  ' 

WRITE (*,*)  'Enter  the  constant  value  for  Phi:  ' 

READ ( * , * )  IPHI 
NUMTHET  =  0 
DO  11  I=1,NUMFZ 

IF (INT (PHIFZ (I) ) .EQ . IPHI)  THEN 
RPHI  =  PHIFZ (I) 

NUMTHET  =  NUMTHET+1 
IVAL (NUMTHET)  =  I 
END  IF 

11  CONTINUE 

IF (NUMTHET. EQ.O)  THEN 

WRITE (*,*)  'No  far-zone  points  were  saved  in  the  Phi  =  ', 
1  IPHI,  '  plane' 

WRITE (*,*)  'Press  ENTER  to  continue' 

READ (5, 1000)  CERR 
GO  TO  5 
ELSE 

WRITE (*, *)  '  ' 

WRITE (*,*)  'Enter  the  frequency  for  the  plot  (in  GHz):  ' 
READ (*, *)  FREQ 
IF (FREQ.GT.FMAX)  THEN 
WRITE (*,*)  '  ' 

WRITE (*,*)  'Frequency  is  too  high.  Enter  a  value  less', 
1  '  than',  FMAX 

WRITE (*, *)  'Press  ENTER  to  continue' 

READ  (5, 1000)  CERR 
GO  TO  5 
END  IF 

IFREQ  =  NINT (FREQ*1 . e9/DELF)  +  1 
IF (IFREQ.LT. 10)  THEN 
Cl  =  ITOC (IFREQ) 

FLNAM  -  '  rcsf ' / /Cl//' .dat' 

ELSE  IF  (IFREQ.LT. 100)  THEN 
C2  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C2//' .dat' 

ELSE  IF (IFREQ.LT. 1000)  THEN 
C3  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C3//' .dat' 

END  IF 

OPEN  (UNIT=40,  FILE=FLNAM,  STATUS='  UNKNOWN' ) 

WRITE (40, 100) 

WRITE (40, 101) 

WRITE (40, 102)  FREQ 
WRITE (40, 103)  IFREQ*DELF 
WRITE (40, 105)  RPHI 
WRITE (40, 101) 

WRITE (40, 202) 
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WRITE (40,  201) 

WRITE (40,  300) 

DO  30  1=1, NUMTHET 

WRITE (40, 400)  THETFZ (IVAL(I) )  ,PHIRE  (IVAL(I) , IFREQ) , 

1  THREdVAL(I), IFREQ), PHIIM(IVAL(I), IFREQ), 

2  THIM(IVAL(I) , IFREQ) 

30  CONTINUE 
CLOSE (40) 

WRITE (*,*)  'Writing  RCS  vs.  Angle  to  file  ' ,FLNAM 
END  IF 

ELSE  IF (IANS .EQ .3)  THEN 
Plot  versus  far-zone  angles 
WRITE (*,*)  '  ' 

WRITE (*,*)  'Enter  the  frequency  for  the  plot  (in  GHz):  ' 
READ (*, *)  FREQ 
IF(FREQ.GT.FMAX)  THEN 
WRITE (*,*)  '  ' 

WRITE (*, *)  'Frequency  is  too  high.  Enter  a  value  less', 
1  '  than',  FMAX 

WRITE (*, *)  'Press  ENTER  to  continue' 

READ (5, 1000)  CERR 

GO  TO  5 
END  IF 

IFREQ  =  NINT(FREQ*l.e9/DELF)  +  1 
IF (IFREQ.LT. 10)  THEN 
Cl  =  ITOC (IFREQ) 

FLNAM  =  ' rcsf ' //Cl//' .dat' 

ELSE  IF (IFREQ.LT. 100)  THEN 
C2  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C2//' .dat' 

ELSE  IF (IFREQ.LT. 1000)  THEN 
C3  =  ITOC (IFREQ) 

FLNAM  =  'rcsf' //C3//' . dat' 

END  IF 

OPEN  (UNIT=40,  FILE=FLNAM,  STATUS='  UNKNOWN'  ) 

WRITE (40, 100) 

WRITE (40, 101) 

WRITE (40, 102)  FREQ 
WRITE (40, 103)  IFREQ*DELF 
WRITE (40, 101) 

WRITE (40, 203) 

WRITE (40, 201) 

WRITE (40, 300) 

DO  31  1=1, NUMFZ 

WRITE (40, 401)  PHIFZ  (I) , THETFZ (I) ,PHIRE (I,  IFREQ) , 

1  THREd,  IFREQ),  PHIIMd,  IFREQ), 

2  THIM(I, IFREQ) 

31  CONTINUE 
CLOSE (40) 

WRITE (*,*)  'Writing  RCS  vs.  Angle  to  file  ', FLNAM 
ELSE  IF(IANS.NE.O)  THEN 
GO  TO  5 
END  IF 


Finished 


181 


c 

100  FORMAT ('#  Radar  Cross-Section  versus  Angle') 

101  FORMAT  (' #' ) 

102  FORMAT ( ' #  Chosen  Frequency  =  ',F6.3,'  GHz') 

103  FORMAT ('#  FFT  Bin  (Actual)  Frequency  =  ',F6.3,'  GHz') 

104  FORMAT ('#  Theta  Observation  Angle  =  ',F6.2,'  degrees') 

105  FORMAT ( '  #  Phi  Observation  Angle  =  ',F6.2,'  degrees') 

200  FORMAT ('#  Phi  Magnitude  (dBsm)  Phase', 

1  '  (degrees ) ' ) 

201  FORMAT ('#  (degrees)  Ephi  Etheta  Ephi  ', 

1  '  Etheta' ) 

202  FORMAT ('#  Theta  Magnitude  (dBsm)  Phase', 

1  '  (degrees ) ' ) 

203  FORMAT ('#  Phi  Theta  Magnitude  (dBsm)  Phase', 

1  '  (degrees)') 

300  FORMAT  ('# - : - 

1  ' - ') 

400  FORMAT (2X,F10. 6, 3X,F10.5, 1X,F10.5, 1X,F10.5, 1X,F10.5) 

401  FORMAT (2F7 .2, 3X,F10 .5, 1X,F10.5, 1X,F10.5, 1X,F10.5) 

502  FORMAT  (2X, 12, 5X,F7 .2,  5X,  F7.2) 

1000  FORMAT (80A1) 

RETURN 

END 

Q  *******★*★★★★★****  +  ★*★★★  +  ★★*★★★*★★**★★★★★*■*■****★  +  ★****+**** 

C 

C  FAST  FOURIER  TRANSFORM  SUBROUTINE — THIS  SUBROUTINE  PERFORMS  A 
C  FOURIER  TRANSFORM  ON  THE  COMPLEX  INPUT  SEQUENCE  X  AND  OVERWRITES 

C  X  ON  OUTPUT.  THIS  SUBROUTINE  CAN  ALSO  BE  USED  TO  COMPUTE  THE 

C  INVERSE  FOURIER  TRANSFORM  BY  PERFORMING  THE  FOLLOWING  STEPS: 

C 

C  DO  10  1=1, N 
C  XIMAG ( I ) =— XIMAG ( I ) 

C  10  CONTINUE 
C 

C  CALL  FFT2 (XREAL, XIMAG,  N,  NU) 

C 

C-  DO  20  1=1, N 
C  XIMAG ( I ) =— XIMAG ( I )  /N 

C  XREAL ( I ) =XREAL ( I )  /N 

C  20  CONTINUE 
C 

C  N  IS  THE  NUMBER  OF  SAMPLES  (I.E.  LENGTH  OF  SEQUENCE)  AND 
C  NU  IS  DEFINED  AS:  N=2**NU. 

C 

SUBROUTINE  FFT2 (XREAL, XIMAG,  N,  NU,  LL,  LMAX) 

DIMENSION  XREAL (LMAX, N), XIMAG (LMAX, N) 

N2=N/2 

NU1=NU-1 

K=0 

DO  110  L=l, NU 
100  DO  105  1=1, N2 

P=IBITR2 (K/ (2**NU1)  ,NU) 

ARG=6 -283185*P/FLOAT (N) 

C=COS (ARG) 

S=SIN (ARG) 

K1=K+1 

K1N2=K1+N2 

TREAL=XREAL  (LL,  K1N2)  *C+XIMAG  (LL,  K1N2)  *S 


ooo  ooooo  oonon 


TIMAG=XIMAG (LL, K1N2 ) *C— XREAL (LL, K1N2) *S 
XREAL (LL, K1N2 ) = XREAL (LL, K1 ) -TREAL 
XIMAG (LL, K1N2 ) =XIMAG (LL, K1 ) -TIMAG 
XREAL (LL, K1 ) =XREAL (LL, K1 ) +TREAL 
XIMAG (LL, K1 ) =XIMAG (LL, K1 ) +TIMAG 
K-K+l 

105  CONTINUE 

106  K=K+N2 

IF  (K.LT.N)  GO  TO  100 
K=*0 

NU1=NU1— 1 
N2=N2/2 
110  CONTINUE 

DO  120  K=1,N 

I=IBITR2 (K— 1, NU) +1 
IF  (I.LE.K)  GO  TO  120 
TREAL= XREAL (LL, K) 

TIMAG=XIMAG (LL,  K) 

XREAL (LL, K) =XREAL (LL, I) 

XIMAG (LL, K) =XIMAG (LL, I ) 

XREAL (LL, I ) =TREAL 
XIMAG (LL, I) =TIMAG 
120  CONTINUE 
130  RETURN 
END 


FUNCTION  SUBPROGRAM  IBITR2(J,NU)  FOR  USE  WITH  FFT  SUBROUTINE 
THIS  IS  A  BIT  REVERSAL  SUBPROGRAM 

FUNCTION  IBITR2 ( JVNU) 

J1=J 
IBITR2=0 
DO  200  I-1,NU 
J2=Jl/2 

IBITR2=IBITR2*2+ ( Jl-2* J2) 

J1-J2 

00  CONTINUE 
RETURN 
END 

****★★★★★*★**★*★★★★★*★***★■*★★★**★★★■***★*★*★**************** 
FUNCTION  ATAN2C(A,B) 

This  function  computes  the  arctangent  function  and  error 
checks  for  situations  where  both  arguements  are  zero. 

IF( (A.EQ.0.0) .AND. (B.EQ.0.0) )  THEN 
ATAN2C  =  0.0 
ELSE 

ATAN2C  =  ATAN2 (A,  B) 

END  IF 

RETURN 

END 

CHARACTER* 3  FUNCTION  ITOC(I) 

Changes  I  to  ascii  character  for  I.  I  should  be  0-9! 
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NHUN=I/100 

NTEN= (I  -  NHUN*100)/10 
NONE= ( I  -  NHUN*100-NTEN*10) 

IF  (NHUN.GT.O)  THEN 

ITOC=CHAR (48+NHUN) //CHAR(48+NTEN) //CHAR (48+NONE) 

ELSE IF  (NTEN.GT.O)  THEN 

ITOC=CHAR (48+NTEN) //CHAR (48+NONE) 

ELSE 

ITOC=CHAR (48+NONE) 

END  IF 

RETURN 

END 

q  ****************************************************************** 


r 
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